COMO MOSTRAR OS ITENS VENDIDOS DE CADA FUNCIONARIO
fiz oq vc falou mais continua aparecendo o ultimo registro...
Antes dessa linha:
você colocou o
Do While RS.EOF = False você colocou o
RS.MoveFirst
sim coloquei
ok..
posta seu código completo que vc usa pra adicionar os registros no grid, pra analisar
Private Sub Command1_Click()
Conecta True
Dim RS As Recordset [ô] basta eu declarar o recordset
Dim sSQL As String
CabecalhoGrid2 [ô] carrego o cabecalho
sSQL = [Ô]Select Distinct * from Vendas order by codfuncionario[Ô]
Set RS = Conexao.Execute(sSQL) [ô] só
Dim letras
List.Clear
letras = Len(nomcli.Text)
If RS.RecordCount = 0 Then
MsgBox [Ô]Você não tem nenhum registro na tabela.[Ô], vbInformation, [Ô]Informação[Ô]
nomcli.Text = [Ô][Ô]
Exit Sub
Else
RS.MoveFirst
End If
Do While Not RS.EOF
If RS!codfuncionario = nomcli.Text Then
List.AddItem RS([Ô]CodFuncionario[Ô]) & [Ô] - [Ô] & RS([Ô]Descrição[Ô]) & [Ô] - [Ô] & RS([Ô]Descrição[Ô])
CabecalhoGrid2
Do While Not RS.EOF
With MSFlexGrid1
.Rows = .Rows + 1 [ô]ira adicionar linhas até preencher todo grid
.TextMatrix(.Rows - 1, 0) = RS!Cod
.TextMatrix(.Rows - 1, 1) = RS!CodInterno
.TextMatrix(.Rows - 1, 2) = RS!Descrição
.TextMatrix(.Rows - 1, 3) = RS!QTDVendida
.TextMatrix(.Rows - 1, 5) = RS!ValorVendido
.TextMatrix(.Rows - 1, 6) = RS!DataInclusão
.TextMatrix(.Rows - 1, 7) = RS!DataValidade
.Row = .Rows - 1
.Col = 8
= vbRed[ô]
End With
End If
RS.MoveNext
Loop
MSFlexGrid1.Redraw = True
Conecta False
End Sub
[txt-color=#e80000]OBSERVE QUE NO GRID, ESTA MOSTRANDO APENAS O ULTIMO REGISTRO DO FUNCIONARIO 532 E NA LIST MOSTRA TODAS AS VENDAS DELE....[/txt-color]
Conecta True
Dim RS As Recordset [ô] basta eu declarar o recordset
Dim sSQL As String
CabecalhoGrid2 [ô] carrego o cabecalho
sSQL = [Ô]Select Distinct * from Vendas order by codfuncionario[Ô]
Set RS = Conexao.Execute(sSQL) [ô] só
Dim letras
List.Clear
letras = Len(nomcli.Text)
If RS.RecordCount = 0 Then
MsgBox [Ô]Você não tem nenhum registro na tabela.[Ô], vbInformation, [Ô]Informação[Ô]
nomcli.Text = [Ô][Ô]
Exit Sub
Else
RS.MoveFirst
End If
Do While Not RS.EOF
If RS!codfuncionario = nomcli.Text Then
List.AddItem RS([Ô]CodFuncionario[Ô]) & [Ô] - [Ô] & RS([Ô]Descrição[Ô]) & [Ô] - [Ô] & RS([Ô]Descrição[Ô])
CabecalhoGrid2
Do While Not RS.EOF
With MSFlexGrid1
.Rows = .Rows + 1 [ô]ira adicionar linhas até preencher todo grid
.TextMatrix(.Rows - 1, 0) = RS!Cod
.TextMatrix(.Rows - 1, 1) = RS!CodInterno
.TextMatrix(.Rows - 1, 2) = RS!Descrição
.TextMatrix(.Rows - 1, 3) = RS!QTDVendida
.TextMatrix(.Rows - 1, 5) = RS!ValorVendido
.TextMatrix(.Rows - 1, 6) = RS!DataInclusão
.TextMatrix(.Rows - 1, 7) = RS!DataValidade
.Row = .Rows - 1
.Col = 8
= vbRed[ô]
End With
End If
RS.MoveNext
Loop
MSFlexGrid1.Redraw = True
Conecta False
End Sub
[txt-color=#e80000]OBSERVE QUE NO GRID, ESTA MOSTRANDO APENAS O ULTIMO REGISTRO DO FUNCIONARIO 532 E NA LIST MOSTRA TODAS AS VENDAS DELE....[/txt-color]
Estranho, pode postar esse projeto de testes que vc disse com o bd pra eu dar uma olhada? e ver como está funcionando? eu faço e mando pra vc..
segue o projetinho...
Ta aà amigo.. veja se é isso..eu fiz o grid só que voce disse que estava com dificuldade né? o list nao fiz nao.. falow
ficou ótimo campeão muito obrigado!
Tópico encerrado , respostas não são mais permitidas