caricamento griglia in vb con una riga in + :(

[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
    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]

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]

ah
grazie

[ladyBlu]

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

[amodio]

ah ma è lo stesso
io mi sposto iin colonna x colonna e scrivo
tu scrivi man mano

no è lo stesso

[ladyBlu]

ma il mio codice è molto più bello e pulito del tuo... :tongue:
fai un po' come ti pare... :gren:

[amodio]

mah fa come ti pare

anzi voglio chiedere consiglio a chi lovede

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

[Gigi84]

io uso il metodo di ladyBlu..

[ladyBlu]

grazie Gigi84. Ti meriti un grande . Così Amodio si impara a fare il simpaticone... Amodio::zamm:

[amodio]

amodio 0 ladyblu 1

ma nonti preoccupare vincero' io
allora continuate a scrivere