Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

JoaoNascimento

Preencher Comobox

Mensagens Recomendadas

JoaoNascimento    0
JoaoNascimento

Pessoal sou novo por aqui e novo em visual basic...

Eu num form tenho 2 combobox onde ja as liguie a base de dados e consigo ter la os campos que quero, mas meu problema é k para fins de calculo precisava a esse campo tivesse outro associado com o valor, mas que não aparecesse na combobox....

Como faço?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Neste momento tenho isto:

        Dim adapter_subsidios As New GestSalDataSetTableAdapters.SubsidiosTableAdapter
        Dim tab_subsidios As New GestSalDataSet.SubsidiosDataTable
        adapter_subsidios.Fill(tab_subsidios)
        For Each registo In tab_subsidios.Rows
            SubsidioComboBox.Items.Add(registo.Item(1))
        Next
        Dim adapter_descontos As New GestSalDataSetTableAdapters.DescontosTableAdapter
        Dim tab_descontos As New GestSalDataSet.DescontosDataTable
        adapter_descontos.Fill(tab_descontos)
        For Each registo In tab_descontos.Rows
            DescontoComboBox.Items.Add(registo.Item(1))

Ou seja apenas tenho como preencher a combo com os dados da coluna 2 da base de dados... Não sei como ao carregar no item associar o valor           

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

So uma questão amigo:

Meu codigo do form load é este todo:

        MesComboBox.DropDownStyle = ComboBoxStyle.DropDownList
        FuncionarioComboBox.DropDownStyle = ComboBoxStyle.DropDownList
        SubsidioComboBox.DropDownStyle = ComboBoxStyle.DropDownList
        DescontoComboBox.DropDownStyle = ComboBoxStyle.DropDownList
        Dim adapter_funcionarios As New GestSalDataSetTableAdapters.FuncionariosTableAdapter
        Dim tab_funcionarios As New GestSalDataSet.FuncionariosDataTable
        adapter_funcionarios.Fill(tab_funcionarios)
        Dim registo As DataRow
        For Each registo In tab_funcionarios.Rows
            FuncionarioComboBox.Items.Add(registo.Item(1))
        Next
        Dim adapter_subsidios As New GestSalDataSetTableAdapters.SubsidiosTableAdapter
        Dim tab_subsidios As New GestSalDataSet.SubsidiosDataTable
        adapter_subsidios.Fill(tab_subsidios)
        For Each registo In tab_subsidios.Rows
            SubsidioComboBox.Items.Add(registo.Item(1))
            Next
        Dim adapter_descontos As New GestSalDataSetTableAdapters.DescontosTableAdapter
        Dim tab_descontos As New GestSalDataSet.DescontosDataTable
        adapter_descontos.Fill(tab_descontos)
        For Each registo In tab_descontos.Rows
            DescontoComboBox.Items.Add(registo.Item(1))

Tenho necessidade de apagar algo?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Repara, tu estás a colocar (e bem) a informação toda no "tab_subsidios" e "tab_funcionarios" e depois fazes um ciclo em todas as linhas para preencher a combobox!

Algo do género devia dar (não testado):

       Dim adapter_subsidios As New GestSalDataSetTableAdapters.SubsidiosTableAdapter
       Dim tab_subsidios As New GestSalDataSet.SubsidiosDataTable
       adapter_subsidios.Fill(tab_subsidios)
       With SubsidioComboBox
             .DisplayMember = "Nome do campo visivel"
             .ValueMember =  "Nome do campo como valor"
             .DataSource = tab_subsidios.DefaultView
      End With

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Já estou percebendo...

Testei algo parecido so que pelo que tou a ver esquecime do:

.DataSource = tab_subsidios.DefaultView

Amanha logo de manha vou tentar isso... Depois aviso colega obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Só agora amigo é k pensei, esses valores nao podem ser calculados normal pois quero que sejam percentagem, e na base de dados estao definidos como varchar(3)...

Talvez por isso é que nao da....

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Amigo como é que eu faço um calculo em vb com percentagens...

Por exemplo: a minha formula de calculo é

SalarioBaseMaskedTextBox.Text = (Val(SalarioBaseDiaMaskedTextBox.Text) * Val(NumeroDiasTextBox.Text))

        SalarioTotalMaskedTextBox.Text = (Val(SalarioBaseMaskedTextBox.Text) + Val(SubsidioComboBox.Text) + Val(DescontoComboBox.Text))

queria que o subsidiocombobox e o descontocombobox fossem percentagem

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Rapaz acalma-te, fizeste 5 posts de seguida jesus.

Mas, porque não fazes os cálculos normalmente seguindo a lógica da matemática? E no fim transformas em percentagem?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Dsclp a minha insistencia mas este trabalho é para entregar no fim deste mes, e agora metem-se exames e assim é complicado...

Ja estou fazendo isso que voçe disse

vu criar uma variagem que vai seer igual a combobox/100, ai vai assomir a percentagem, e na formula de calculo invoco essa variavel.... Estou pensando bem am igo???

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Dsclp a minha insistencia mas este trabalho é para entregar no fim deste mes, e agora metem-se exames e assim é complicado...

Ja estou fazendo isso que voçe disse

vu criar uma variagem que vai seer igual a combobox/100, ai vai assomir a percentagem, e na formula de calculo invoco essa variavel.... Estou pensando bem am igo???

Sim, é isso mesmo.

Depois no fim se quiseres, convertes de novo para percentagem.

E se não te importares, trata-me por tu :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Meu objectivo é apenas associar o iten da combobox ao valor da base de dados, que tera de ser convertido para percentagem.... Falei com o meu orof de matematica e ele falou-me dessa historia de criar uma variavel para fazer o calculo d percentagem, e depois invocar na formula final....

Acho que tou oensando bem....  Nºao é amigo?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Meu objectivo é apenas associar o iten da combobox ao valor da base de dados, que tera de ser convertido para percentagem.... Falei com o meu orof de matematica e ele falou-me dessa historia de criar uma variavel para fazer o calculo d percentagem, e depois invocar na formula final....

Acho que tou oensando bem....  Nºao é amigo?

Sim, é isso mesmo :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Percebes muito disso lol...

Quem me dera...

Era assim de uma ajuda que precisava para o meu projecto

Por acaso até não :P as bases de dados (por enquanto) não são o meu forte.

Apenas estou a usar um pouco de lógica e matemática :)

Abraço, e qualquer coisa que precises, diz :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Por acaso até não :) as bases de dados (por enquanto) não são o meu forte.

Apenas estou a usar um pouco de lógica e matemática ;)

Abraço, e qualquer coisa que precises, diz ;)

Amigo já alterei a formula, sem problemas nem erros... Apesar de ainda nao estar acabada pois so fiz o calculo da percentagem da base de dados como por exemplo:

12/100=0.12 (12%)

Agora tenho de fazer o calculo de por exemplo:

subsidio2=SalarioBase*subsidio

Ou seja, isto serve para saber o valor dos subsidios...

Agora meu problema écomo ao iten escolhido associo o valor da base de dados:

Ja tentei

With SubsidioComboBox
            .DisplayMember = "Subsidio"
            .ValueMember = "Percentagem"
            .DataSource = tab_subsidios.DefaultView
        End With

mas nao funciona...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoNascimento    0
JoaoNascimento

Amigos Problema resolvido....

Tive de mudar um pouco as coisas para conseguir...

Em vez de associar o item ao valor, associei o item a uma caixa de texto com o valor e com o evento textchange da combobox....

Obrigado a todos se tiverem alguma duvida sobre este topico é so avisar eu explico melhor

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade