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