|
|
Postada em 14/08/2008 14:44 hs
Pessoal, Desculpe a pergunta, mas é que estou começando a programar agora!! Mas como eu faço para alimentar uma FlexGrid?? Eu já vi vários exemplos e não estou conseguindo!!! Vou explicar a minha situação!!! Eu tenho diversos códigos em uma tabela do excel. Então eu puxo o código, consulto ele no sql e me tras as informações do código. Preciso que essas informações apareçam na flexgrid. Mas não consigo... Alguem pode por favor me ajudar? Preciso disso com máxima urgência e não sei mais o que fazer! Obrigada |
|
|
|
|
|
|
|
Postada em 14/08/2008 15:04 hs
Eu to fazendo mais ou menos assim, mas só da erro... Por favor que puder me ajudar!!! If rs.EOF = False Then
Do
Set MS1.DataSource = rs(9)
MS1.DataSource = rs(0)
MS1.DataSource = rs(10)
rs.MoveNext
Loop Until rs.EOF = True
Else
MsgBox "Dados não encontrados", vbInformation, "Aviso"
End If |
|
|
|
Treze
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 14/08/2008 15:21 hs
Tenta assim veja se resolve With MSFlexGrid1
.FixedCols = 0
.FixedRows = 1
.FormatString = "rs9 |rs0 | rs10 "
If rs.EOF = False Then
Do .Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs(9)
.TextMatrix(.Rows - 1, 1) = rs(0)
.TextMatrix(.Rows - 1, 2) = rs(10)
rs.MoveNext
Loop Until rs.EOF = True
Else
MsgBox "Dados não encontrados", vbInformation, "Aviso"
End If End with |
|
|
|
|
|
Postada em 14/08/2008 17:33 hs
With MS1
.FixedCols = 0
.FixedRows = 1
If rs.EOF = False Then
Do
.Rows = .Rows '+ 0
.TextMatrix(.Rows - 1, 0) = rs(0)
.TextMatrix(.Rows - 1, 1) = rs(1)
.TextMatrix(.Rows - 1, 2) = rs(2)
.TextMatrix(.Rows - 1, 3) = rs(3)
.TextMatrix(.Rows - 1, 4) = rs(4) rs.MoveNext
Loop Until rs.EOF = True
Else
MsgBox "Dados não encontrados", vbInformation, "Aviso"
End If End with Conseguiiiiiiiiiiiiii!!! =) Obrigadaaaaaa!! Vc é 10! |
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2008 08:33 hs
Realmente, o Treze é 10 X 10 |
|
|
|
