APARECER DADOS DE UMA CONSULTA NO MSFLEXGRID

RICKSOUSA 18/02/2010 15:22:29
#334708
repare que no msflexgrid do form verde aparecem 3 produtos, e no outro form só aparecem um, como eu faço para aparecer do mesmo jeito que ta o form verde???

estou fazendo da seguinte forma

eu coloco o codigo do orçamento no textbox pesquisar e traz tudo certinho porem no msflexgrid só aparece um produto...

segue o codigo que estou usando....

Private Sub txtpes_Change()

If cbtipopes.Text = [Ô]OS[Ô] Then

Set tabela = banco.OpenRecordset([Ô]select * from OS where OS.idOS like [ô]*[Ô] & txtpes & [Ô]*[ô] order by OS.idOS[Ô])

If tabela.RecordCount = 0 Then

MsgBox ([Ô]Produto não encontrado![Ô]), vbExclamation, [Ô]Aviso![Ô]
txtpes.Text = [Ô][Ô]

Exit Sub

End If

tabela.MoveFirst

nsopes.Caption = tabela([Ô]idOS[Ô])
idclientepes.Caption = tabela3([Ô]IDcliente[Ô])
txtnomepes.Text = tabela3([Ô]Nome[Ô])
txtfonepes.Text = tabela3([Ô]telefone[Ô])

For i = 1 To tabela2.RecordCount

MSflexpes.Row = i
MSflexpes.Col = 0
MSflexpes.Text = tabela2([Ô]IDproduto[Ô])
MSflexpes.Row = i
MSflexpes.Col = 1
MSflexpes.Text = tabela2([Ô]Descricao[Ô])
MSflexpes.Row = i
MSflexpes.Col = 2
MSflexpes.Text = Format(CCur(tabela2([Ô]ValorUnit[Ô])), [Ô]currency[Ô])
[ô]MSflex.Rows = MSflex.Rows + 1
tabela.MoveNext

Next i

End If

End Sub

vcs deve ter reparado que tem tabela, tabela2 e tabela3

tabela = tabela OS

tabela2 = tabela produto

tabela3 = tabela cliente

se vcs poderem me ajudar usando essa lógica mesmo eu agradeço. a não ser que desse modo não tenha possibilidade... aguardo resposta....
SINKERTEC 18/02/2010 15:38:44
#334710


Meu caro

falta isso embaixo do tabela,movenext


MsFlex.AddItem Row
TECLA 18/02/2010 15:45:55
#334711 
For i = 0 To tabela2.RecordCount - 1
        MSflexpes.TextMatrix(i, 0) = tabela2([Ô]IDproduto[Ô])
        MSflexpes.TextMatrix(i, 1) = tabela2([Ô]Descricao[Ô])
        MSflexpes.TextMatrix(i, 2) = Format(CCur(tabela2([Ô]ValorUnit[Ô])), [Ô]currency[Ô])
        MSflexpes.Rows = MSflexpes.Rows + 1
        tabela2.MoveNext   
Next i
RICKSOUSA 18/02/2010 17:30:57
#334725
LEOFRIB tem como vc comentar algumas linhas para eu entender melhor se não for pedir muito
RICKSOUSA 18/02/2010 18:34:56
#334736
tecla eu add essa linha, MSflexpes.Rows = MSflexpes.Rows + 1, mais apenas acrescentou vazia mais não mostrou os produtos restante...
RICKSOUSA 18/02/2010 19:28:38
#334738
alguem pode me ajudar????
MARCELO.TREZE 18/02/2010 19:51:05
#334740
RICK como vc está salvando os dados no banco?

pois vejo que vc está fazendo um projeto simples porém está complicando muito.

poste a estrutura da sua tabela, para podermos entender melhor.
RICKSOUSA 18/02/2010 22:15:46
#334747
segue a estrutura do banco
Tópico encerrado , respostas não são mais permitidas
Voltar