[VB6] DataGrid e personalizzazione del layout

[Magicolotto]

Ciao ragazzi, buona domenica
spero che mi aiuterete in questo piccolo problemino

ho creato un accesso al DB con un data grid, pero' da default al DB ACCESS le tabelle compaiono nella stessa altezza e lunghezza del db di origine

ho provato a modificarle andando in proprieta' e poi su
LAYout
PERO' SE vado su Width e cambio il valore... LA DATA GRINDI SI VISUALIZZA CON LE CELLE MODIFICATE PERO' ALL'INTERNO DI ESSE NON COMPARE NULLa ( scusate maiuscolo)

cè qualche altro modo per la loro modifica?


grazie anticipatamente

[Magicolotto]

permettetemi un up?

[mgmg]

Puoi provare a dimensionare le colonne della griglia in questo modo

       Set DataGrid1.DataSource = RS
        y% = 0
        For Each MyCol In DataGrid1.Columns
        'prima colonna    
            If y = 0 Then
                MyCol.Width = 1900
            Else 'colonne successive
                MyCol.Width = 6000
            End If
            y% = y% + 1
        Next
        DataGrid1.Refresh

Ciao

[Magicolotto]

non va...

[mgmg]

Cosa non và? Il codice postato serve per dimensionare le colonne di una grid.

Ciao

[Magicolotto]

ok sbagliavo io scusa

se dovessi escludere una tabella?

[mgmg]

Se vuoi escludere un campo di una tabella o non lo metti nelle select oppure puoi rendere invisibile la colonna: MyCol.Visible = False.

        y% = 0
        For Each MyCol In DataGrid1.Columns
        'prima colonna    
            If y = 0 Then
                MyCol.Width = 1900
            elseIf y = 1 Then
                MyCol.Visible = False
            Else 'colonne successive
                MyCol.Width = 6000
            End If
            y% = y% + 1
        Next

Ciao

[Magicolotto]

cosi mi toglie il 1°

invece io dovrei escludere "data"

[mgmg]

Che corrisponde a quale colonna? Considerando che la prima è = 0?
Altrimenti puoi fare:

    Y% = 0
    For Each Mycol In DataGrid1.Columns
        If LCase(Mycol.Caption) = "data" Then
            Mycol.Visible = False
        End If
    'prima colonna
        If Y = 0 Then
            Mycol.Width = 1900
        'ElseIf Y = 1 Then
        '    Mycol.Visible = False
        Else 'colonne successive
            Mycol.Width = 6000
        End If
        Y% = Y% + 1
    Next

Ciao

[Magicolotto]

chiedo scusa mispiego megli

con l'ultimo codice mi esclude la colonna in questione, nel senso che non vine nemmeno visualizzata nella Grid

io invece dovrei fare in modo che essavenga visualizzata pero senza le modifiche delle celle