DADOS NO LIST

MARCELO.TREZE 30/09/2009 16:05:25
#324105
vou desenvolver um exemplo pra vc

só um segundo
MARCELO.TREZE 01/10/2009 14:44:57
#324176
Bom vamos lá inclua um Flexgrid em seu projeto

e no load do for Coloque o seguinte

With MSFlexgrid1
.FixedRows = 0
.FixedCols = 0
.Rows = 0
.Cols = 0
End With

e faça a seguinte alteração no seu código

Wtih MSfelxGrid1
.Rows = .Rows + 1
Do Until RstImp.EOF
.Cols = .Cols + 1
.TextMatrix(.Rows,.Cols) = RstImp([Ô]LM_3[Ô]) 
RstImp.MoveNext
Loop
End Wtih


tente isto e diga se funcionou
IRENKO 01/10/2009 15:27:09
#324185
Marcelo, aqui no meu não apareceu nada, fiz conforme vc sugeriu.
MARCELO.TREZE 01/10/2009 15:29:21
#324188
Nem erro nem nada
IRENKO 01/10/2009 15:33:57
#324190
Sim, deu esse erro:

Subscript out of range

na linha:

.TextMatrix(.Rows, .Cols) = RstImp([Ô]LM_3[Ô])
MARCELO.TREZE 01/10/2009 15:39:28
#324192
já sei do que se trata tente esta modificação

With MSFlexgrid1
.FixedRows = 0
.FixedCols = 0
.Rows = 0
.Cols = 10
End With

e

Wtih MSfelxGrid1
C = 0
.Rows = .Rows + 1
Do Until RstImp.EOF
.TextMatrix(.Rows, C) = RstImp([Ô]LM_3[Ô])
C = c + 1
RstImp.MoveNext
Loop
End Wtih
IRENKO 01/10/2009 15:56:11
#324196
Vixxi amigo não deu!! Apareceu a mesma msg.
MARCELO.TREZE 01/10/2009 15:58:23
#324197
tem como me enviar o projeto
IRENKO 01/10/2009 16:08:22
#324199
tá na mão.
MARCELO.TREZE 01/10/2009 16:18:36
#324202
testa denovo

Private Sub Form_Load()
With MSFlexGrid1
.FixedRows = 0
.FixedCols = 0
.Rows = 0
.Cols = 11
End With
Verefica2
End Sub
Private Function Verefica2()
ConexãoGeral
Dim Sql_X As String
Dim Dado As String
Dim C As Integer
Set RstImp = New ADODB.Recordset
Sql_X = [Ô]SELECT LM_3 FROM LMnr WHERE Status = [ô]Pendente[ô][Ô]
Set RstImp = Banco1.Execute(Sql_X)




With MSFlexGrid1
C = 0
.Rows = .Rows + 1
Do Until RstImp.EOF
.TextMatrix(.Rows - 1, C) = RstImp([Ô]LM_3[Ô])
C = C + 1
RstImp.MoveNext
Loop
End With

[ô]Desconect_2
End Function
Página 2 de 3 [26 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar