PDA

Visualizza la versione completa : caricamento griglia in vb con una riga in + :(


amodio
02-07-2002, 10:16
io nel seguente codice per caricare una flexgrid mi ritrovo una riga vuota in + perche? grazie





FlexGrid.Rows = 1
Dim a
a = 0

FlexGrid.Rows = FlexGrid.Rows + 1
FlexGrid.Row = a
FlexGrid.Col = 1
FlexGrid.Text = rs("data").Name
FlexGrid.Col = 2
FlexGrid.Text = rs("soggetto").Name
FlexGrid.Col = 3
FlexGrid.Text = rs("causale").Name

a = 1

FlexGrid.ColWidth(0) = 0
FlexGrid.ColWidth(1) = 1500
FlexGrid.ColWidth(2) = 1900
FlexGrid.ColWidth(3) = 2400

While Not (rs.EOF)

FlexGrid.Rows = FlexGrid.Rows + 1
FlexGrid.Row = a

FlexGrid.Col = 1
FlexGrid.Text = Format(rs("data"), "dd/mm/yyyy")
FlexGrid.Col = 2
FlexGrid.Text = rs("soggetto")
FlexGrid.Col = 3
FlexGrid.Text = rs("causale")


rs.MoveNext
a = a + 1

Wend

vonkranz
02-07-2002, 10:40
Originariamente inviato da amodio
io nel seguente codice per caricare una flexgrid mi ritrovo una riga vuota in + perche? grazie





FlexGrid.Rows = 1
Dim a
a = 0

'FlexGrid.Rows = FlexGrid.Rows + 1 'TOGLI QUESTA

FlexGrid.Row = a
FlexGrid.Col = 1
FlexGrid.Text = rs("data").Name
FlexGrid.Col = 2
FlexGrid.Text = rs("soggetto").Name
FlexGrid.Col = 3
FlexGrid.Text = rs("causale").Name

a = 1

FlexGrid.ColWidth(0) = 0
FlexGrid.ColWidth(1) = 1500
FlexGrid.ColWidth(2) = 1900
FlexGrid.ColWidth(3) = 2400

While Not (rs.EOF)

FlexGrid.Rows = FlexGrid.Rows + 1
FlexGrid.Row = a

FlexGrid.Col = 1
FlexGrid.Text = Format(rs("data"), "dd/mm/yyyy")
FlexGrid.Col = 2
FlexGrid.Text = rs("soggetto")
FlexGrid.Col = 3
FlexGrid.Text = rs("causale")


rs.MoveNext
a = a + 1
Wend


Prova a fare la modifica in neretto...

amodio
02-07-2002, 10:48
ah
grazie

ladyBlu
02-07-2002, 10:51
Amodio, xch non semplifichi un po' il codice? Vedi un po':

Sub CaricaGriglia()

FlexGrid.Rows = 1
Dim a

a = 0

FlexGrid.TextMatrix(a, 1) = rs("data").Name
FlexGrid.TextMatrix(a, 2) = rs("soggetto").Name
FlexGrid.TextMatrix(a, 3) = rs("causale").Name

a = 1

FlexGrid.ColWidth(0) = 0
FlexGrid.ColWidth(1) = 1500
FlexGrid.ColWidth(2) = 1900
FlexGrid.ColWidth(3) = 2400

Do Until rs.EOF

FlexGrid.Rows = FlexGrid.Rows + 1

FlexGrid.TextMatrix(a, 1) = Format(rs("data"), "dd/mm/yyyy")
FlexGrid.TextMatrix(a, 2) = rs("soggetto")
FlexGrid.TextMatrix(a, 3) = rs("causale")

rs.MoveNext
a = a + 1

Loop

End Sub

Ciao :smack:

amodio
02-07-2002, 10:57
ah ma lo stesso
io mi sposto iin colonna x colonna e scrivo
tu scrivi man mano

no lo stesso

ladyBlu
02-07-2002, 10:58
ma il mio codice molto pi bello e pulito del tuo... :tongue:
fai un po' come ti pare... :p :gren:

amodio
02-07-2002, 11:46
mah fa come ti pare

anzi voglio chiedere consiglio a chi lovede

ALLORA RAGAZZI QUALE CODICE + PULITO E LEGGIBILE?
RISPONDETE PURE QUI

Gigi84
02-07-2002, 12:09
io uso il metodo di ladyBlu..:ciauz: :ciauz: :ciauz:

ladyBlu
02-07-2002, 12:17
grazie Gigi84. Ti meriti un grande :smack:. Cos Amodio si impara a fare il simpaticone... Amodio::zamm:

amodio
02-07-2002, 12:23
amodio 0 ladyblu 1

ma nonti preoccupare vincero' io
allora continuate a scrivere:ciauz:

Loading