ERRO NA LINHA DO MSFLEXGRID

RICKSOUSA 29/09/2009 11:35:32
#323958
o codigo ta da seguinte maneira:

tabelaconsultapro.MoveLast
tabelaconsultapro.MoveFirst

If tabelaconsultapro.RecordCount > 11 Then

MSFlex.Rows = tabelaconsultapro.RecordCount + 1
MsgBox listapro.Rows

Else

listapro.Rows = 11

End If

For i = 1 To tabelaconsultapro.RecordCount
listapro.Row = i
listapro.Col = 0
listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
listapro.Row = i
listapro.Col = 1
listapro.Text = tabelaconsultapro([Ô]produto[Ô])
listapro.Row = i
listapro.Col = 2
listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
listapro.Row = i
listapro.Col = 3
listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
listapro.Row = i
listapro.Col = 4
listapro.Text = FormatCurrency(tabelaconsultapro([Ô]pdevenda[Ô]), 2) [ô] ou Format(tabelaconsultapro([Ô]pdevenda[Ô]), [Ô]###,##0.00[Ô])

tabelaconsultapro.MoveNext

Next i

tabelaconsultapro.MoveLast

quando eu cadastrei 11 produtos, ai quando eu tento executar o programa da erro na seguinte linha

For i = 1 To tabelaconsultapro.RecordCount
listapro.Row = i listapro.Col = 0
listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
listapro.Row = i
listapro.Col = 1
listapro.Text = tabelaconsultapro([Ô]produto[Ô])
listapro.Row = i
listapro.Col = 2
listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
listapro.Row = i
listapro.Col = 3
listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
listapro.Row = i
listapro.Col = 4
listapro.Text = FormatCurrency(tabelaconsultapro([Ô]pdevenda[Ô]), 2) [ô] ou Format(tabelaconsultapro([Ô]pdevenda[Ô]), [Ô]###,##0.00[Ô])


como eu posso tratar esse erro?
ANTONIOBSJ 29/09/2009 11:41:06
#323959
listapro.Rows = 1

For i = 1 To tabelaconsultapro.RecordCount
listapro.Rows = listapro.rows + 1
listapro.Row = i
listapro.Col = 0
listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
listapro.Row = i
listapro.Col = 1
listapro.Text = tabelaconsultapro([Ô]produto[Ô])
listapro.Row = i
listapro.Col = 2
listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
listapro.Row = i
listapro.Col = 3
listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
listapro.Row = i
listapro.Col = 4
listapro.Text = FormatCurrency(tabelaconsultapro([Ô]pdevenda[Ô]), 2) [ô] ou Format(tabelaconsultapro([Ô]pdevenda[Ô]), [Ô]###,##0.00[Ô])

tabelaconsultapro.MoveNext

Next i

Ai tanto faz vc ter 1 ou 1000 registros no grid
RICKSOUSA 29/09/2009 11:44:25
#323960
amigo continua dando o mesmo erro Invalid Row Value
RICKSOUSA 29/09/2009 12:35:29
#323963
o erro ta aqui:

Call preenche_lista

If produto.Text = [Ô][Ô] Then

tabelaconsultapro.MoveLast
tabelaconsultapro.MoveFirst

If tabelaconsultapro.RecordCount > 11 Then

MSFlex.Rows = tabelaconsultapro.RecordCount + 1
MsgBox listapro.Rows

Else

listapro.Rows = 11

End If

For i = 1 To tabelaconsultapro.RecordCount
listapro.Row = i
listapro.Col = 0
listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
listapro.Row = i
listapro.Col = 1
listapro.Text = tabelaconsultapro([Ô]produto[Ô])
listapro.Row = i
listapro.Col = 2
listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
listapro.Row = i
listapro.Col = 3
listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
listapro.Row = i
listapro.Col = 4
listapro.Text = FormatCurrency(tabelaconsultapro([Ô]pdevenda[Ô]), 2) [ô] ou Format(tabelaconsultapro([Ô]pdevenda[Ô]), [Ô]###,##0.00[Ô])

tabelaconsultapro.MoveNext

Next i

tabelaconsultapro.MoveLast

até 10 registro funciona blz, mais quando passa da esse erro Invalid Row Value

eu coloquei oq o amigo tinha falado, coloquei o 1 ai que mesmo que não tiver registro vai dar erro, então quanto mais eu aumentar mais eu vou poder registrar, como eu trato esse erro????
RICKSOUSA 29/09/2009 13:34:50
#323970
alguem pode dar uma dica, de outra maneira como eu faço para carregar os dados na msflexgrid, pq do jeito que eu fiz, quando chega 11 registros da erro Invalid Row Value

quando carrega o form ja carregar todos os registros dentro do msflexgrid e quando eu digitar no textbox produto trazer no msflexgrid

por exemplo: por ordem alfabética

se eu digitar m

memoria bla bla bal

mais ou menos isso...
MARCELO.TREZE 29/09/2009 13:38:03
#323972 Resposta escolhida
Tente assim

With listapro
.FixedCols = 0
.FixedRows = 1
.Rows = 1
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.MoveNext
Loop
End With
RICKSOUSA 29/09/2009 13:43:48
#323974
amigo deu esse erro:

veja a imagem
MARCELO.TREZE 29/09/2009 13:45:00
#323975
Deculpe copie novamente o código, já editei ele e corrigi
RICKSOUSA 29/09/2009 14:15:21
#323976
agora deu certo, só não ta funcionando na hora de digitar algum texto no textbox produto vou tentar ai eu posto de novo...
ROBIU 29/09/2009 14:42:45
#323978
Você testou minha resposta no seu tópico anterior?

Formato Currency
RICKSOUSA 29/09/2009 14:45:40
#323979
robiu é que o tecla ja tinha respondido e o dele deu certo, mais eu salvei o seu para quando eu precisar
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar