ERRO NA LINHA DO MSFLEXGRID

MARCELO.TREZE 29/09/2009 15:53:48
#323988
Pegunta está usando DAO ou ADO
RICKSOUSA 29/09/2009 16:30:20
#323991
estou usando DAO amigo...
MARCELO.TREZE 29/09/2009 19:35:16
#324006
Então seria algo assim

With listapro
.FixedCols = 0
.FixedRows = 1
.Rows = 1
Tabelaconsulta.Findfirst [Ô]CampoBusca like[ô]*[Ô] & txtBusca.Text & [Ô][ô][Ô]

Do While Not Tabelaconsulta.EOF
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = tabelaconsultapro([Ô]codigoproduto[Ô])
            .TextMatrix(.Rows - 1, 1) = tabelaconsultapro([Ô]produto[Ô])
            .TextMatrix(.Rows - 1, 2) = tabelaconsultapro([Ô]categoria[Ô])
            .TextMatrix(.Rows - 1, 3) = tabelaconsultapro([Ô]quantidade[Ô])
            .TextMatrix(.Rows - 1, 4) = FormatCurrency(tabelaconsultapro([Ô]pdevenda[Ô]), 2) 
            tabelaconsultapro.FindNext [Ô]CampoBusca like[ô]*[Ô] & txtBusca.Text & [Ô][ô][Ô]
Loop
End With

basta você colocar no evento keypress do txtBusca
RICKSOUSA 30/09/2009 09:19:08
#324031
ei marcelo ja era aquele mesmo codigo que vc havia passado, só faltou eu ter colocado no evento change do textbox produto

valeu mesmo fera!!!

eu sou novo aqui, apenas usei o forum duas veses, e não imaginava que era respondido tão rapido, muito bom mesmo o vbmania ta de parabéns!!!
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar