none
PREENCHENDO UM COMBOBOX SE O CAMPO DA TABELA DOR IGUAL AO CAMPO DO FORM RRS feed

  • Pergunta

  • Ola pessoal... novamente estou emperrado em uma função que no VB6 eu faria de olhos fechados, mas no .NET do me matando e nao consigo.

    Meu problema eh o seguinte:
    Tenho um campo no FORM de nome REDUZIDO, em uma tabela ACCESS de nome CREDOR (que seria NOME REDUZIDO DO CREDOR) e em outra tabela ACCESS, o tenho o campo REDUZIDO e CARTEIRA. 

    Preciso que ao clicar no combo box de nome REDUZIDO, ele percorra a base de dados CARTEIRAS, buscando o campo REDUZIDO, informado no COMBO BOX e se encontrado algum registro que tenha o campo REDUZIDO igual ao COMBO BOX , preencher uma COMBO BOX de nome CARTEIRA com o campo TIPOCARTE da tabela CARTEIRAS.

    Estou usando a codificação abaixo, para que o sistema percorra a base de dados e preencha o combo box CARTEIRA ,
    (sem filtrar pelo pelo campo REDUZIDO)... Alguem tem uma dica de como fazer? 

    Try

               

                Dim idno As Object
                idno = 0
                Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.\COBRANCA.MDB")
                If cn.State = ConnectionState.Open Then cn.Close()
                cn.Open()
                Dim ds As New DataSet
                Dim dr As DataRow
                Dim dt As New DataTable
                Dim adptr As New OleDb.OleDbDataAdapter("select * from CARTEIRAS", cn)
                adptr.Fill(ds, "TIPOCARTE")
                dt = ds.Tables(0)
                Dim USU1 As String
                Dim USU2 As String
                USU2 = ""
                For Each dr In dt.Rows
                    USU1 = dr.Item("TIPOCARTE")

                    If USU1 <> USU2 Then ---> aqui estou fazendo um filtro para q se houver 2 registros iguais nao repita no combo

                    aqui eu precisaria que se o campo REDUZIDO que há na tabela for igual ao campo REDUZIDO do form, o campo
                    TIPOCARTE seja adicionado ao COMBO BOX CARTE

                               CARTE.Items.Add(dr.Item("TIPOCARTE"))

                        USU2 = dr.Item("TIPOCARTE")
                    End If

    Next

                cn.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

    quinta-feira, 1 de agosto de 2013 06:42