DADOS NO LIST
é isso ai Marcelo!!!! Valeu mesmo!
Marcelo, só esqueci de um detalhe nesse código. A quantidade de colunas pode variar pra mais ou pra menos. No exemplo q mandei são 11, mas poderia ser 20. Como contornar isso, ou seja, preencher o grid com as colunas de acordo com a quantidade de dados?
é eu havia analizado esta possibilidade e fiz as seguintes alterações:
veja bem talvez ainda hajam algumas modificações a serem feitas, se existir um numero máximo de colunas coloque este numero em .cols
exemplo
.Cols = 30
e boa sorte
Private Sub Form_Load()
Verefica2
End SubPrivate 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
.FixedRows = 0
.FixedCols = 0
.Rows = 0
.Cols = RstImp.RecordCount
End With
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 Functionveja bem talvez ainda hajam algumas modificações a serem feitas, se existir um numero máximo de colunas coloque este numero em .cols
exemplo
.Cols = 30
e boa sorte
Blz cara!! Obrigado, já da pra seguir sozinho.
Dá nada! Hehehe
Marcelo, a ultima. Para inverter o codigo no caso ao invés de carregar colunas como ficaria carregar linhas? No seu codigo original q esta funcionado bem eu carrego o grid na horizontal, e na vertical como ficaria essa linha:
.TextMatrix(.Rows - 1, C) = Tabela_LM([Ô]LM_1[Ô])
no caso carregando o grid normalmente?
Marcelo, a ultima. Para inverter o codigo no caso ao invés de carregar colunas como ficaria carregar linhas? No seu codigo original q esta funcionado bem eu carrego o grid na horizontal, e na vertical como ficaria essa linha:
.TextMatrix(.Rows - 1, C) = Tabela_LM([Ô]LM_1[Ô])
no caso carregando o grid normalmente?
repare o senguinte toda vez que você chamar a função uma nova linha será carregada.
With MSFlexGrid1
C = 0
.Rows = .Rows + 1 [ô]<----Aqui é carregada a nova linha
Do Until RstImp.EOF
.TextMatrix(.Rows - 1, C) = RstImp([Ô]LM_3[Ô])
C = C + 1
RstImp.MoveNext
Loop
End With
ou seja:
se você for carregar o flexgrid incluindo linhas basta usar o .Rows = .Rows +1
With MSFlexGrid1
C = 0
.Rows = .Rows + 1 [ô]<----Aqui é carregada a nova linha
Do Until RstImp.EOF
.TextMatrix(.Rows - 1, C) = RstImp([Ô]LM_3[Ô])
C = C + 1
RstImp.MoveNext
Loop
End With
ou seja:
se você for carregar o flexgrid incluindo linhas basta usar o .Rows = .Rows +1
Tópico encerrado , respostas não são mais permitidas