Order By

[BrunoVeríssimo]

Eu tenho uma Tabela chamada Tabela_faturamento e uso um MSFlexGrid pra mostrar os dados, e um combo pra organizar-los por Fatura ou Cliente.

quando eu ordeno por cliente dá td certo, mas quando eu coloco por fatura, o record.count indica apenas um registro na tabela.

Private Sub Combo1_Click()

If Me.Combo1.Text = "Fatura" Then

SQL = "SELECT*FROM Tabela_faturamento ORDER BY Fatura"

Set TABELAFATURAMENTO = BDADOS.OpenRecordset(SQL)

Me.MSFlexGrid1.Clear

PREENCHEFLEXGRID

Else

SQL = "SELECT*FROM Tabela_faturamento ORDER BY cliente"

Set TABELAFATURAMENTO = BDADOS.OpenRecordset(SQL)

Me.MSFlexGrid1.Clear

PREENCHEFLEXGRID

End If

End Sub

Public Function PREENCHEFLEXGRID()

Dim SQL2 As String

TABELAFATURAMENTO.MOVEFIRST

For i = 1 To TABELAFATURAMENTO.RecordCount ' A tabela faturamento indica apenas 1 record se

'ordenar por fatura

Me.MSFlexGrid1.TextMatrix(i, 0) = TABELAFATURAMENTO("fatura")

Me.MSFlexGrid1.TextMatrix(i, 1) = TABELAFATURAMENTO("cliente")

Me.MSFlexGrid1.TextMatrix(i, 2) = TABELAFATURAMENTO("VlrTotal")

TABELAFATURAMENTO.MoveNext

Next

End Function

[kuroi]

estranho, tentou executar as duas queries direto no banco pra vê o que elas retornam??

[Graymalkin]

Experimente usar um Do While ao invés do For:

Do While Not TABELAFATURAMENTO.Eof
    Me.MSFlexGrid1.TextMatrix(i, 0) = TABELAFATURAMENTO("fatura")
    Me.MSFlexGrid1.TextMatrix(i, 1) = TABELAFATURAMENTO("cliente")
    Me.MSFlexGrid1.TextMatrix(i, 2) = TABELAFATURAMENTO("VlrTotal")
    TABELAFATURAMENTO.MoveNext
Loop

Abraços,

Graymalkin

[BrunoVeríssimo]

Vlw Gray...deu certo...