PDA

Visualizza la versione completa : checkbox su DataGrid


heitor2000
13-06-2001, 22:40
Utilizzo una datagrid collegata ad un controllo ADO Data per visualizzare una tabella di Access 2000.
La mia tabella contiene un campo booleano (campo SI/NO) ed io vorrei che sulla griglia venissero visualizzati dei checkbox nella colonna corrispondente a quel campo però dopo svariate prove non sono riuscito nell'intento e continuo a vedere 0 ed 1 anzichè i check.
Tra le proprietà della datagrid è previsto il tab formato colonna e tra i vari formati disponibili è prevista la casella di controllo, però sembra che questa impostazione non abbia effetto.
Un saluto ed un ringraziamento a chiunque voglia provare questa cosa.
Ciao e buon lavoro.

Marcorgan
16-09-2002, 10:18
Anche a me servirebbe capire come si fa questa cosa...

Grazie
Ciao ciao

andrea_mi
16-09-2002, 14:40
Io per fare quello che dici tu faccio in un'altro metodo, scrivo del codice a parte, sinceramente ho provato ad usare dal Menù della data grid ma anche a me non funziona....cmq se ribecco il programma dove facevo questa cosa che a te interessa te lo posto.....se ancora ti interessa....ciao
Andrea

Marcorgan
16-09-2002, 14:41
certo che mi interessa ancora, è tutto il giorno che sto cercando una soluzione :cry:

grazie mille

andrea_mi
16-09-2002, 16:12
Private Sub MoveCheckBox()
On Error GoTo errore
Dim col As msdatagridlib.Column
Set col = DataGrid1.Columns(DataGrid1.col)

If col.Caption = "sino" And DataGrid1.CurrentCellVisible Then
Checkbox.Move DataGrid1.Left + col.Left, DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row), col.Width
Checkbox.ZOrder
Checkbox.SetFocus
If col.Text = "0" Then
Checkbox.Value = 0
Else
Checkbox.Value = 1
End If
Exit Sub
End If

errore:
Checkbox.Move -10000
If DataGrid1.Visible Then DataGrid1.SetFocus
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Call MoveCheckBox
End Sub
Private Sub DataGrid1_RowResize(Cancel As Integer)
Call MoveCheckBox
End Sub
Private Sub DataGrid1_Scroll(Cancel As Integer)
Call MoveCheckBox
End Sub
Private Sub DataGrid1_SplitChange()
Call MoveCheckBox
End Sub


Poi dovrai implementare il sistema per salvare i valori di ritorno dalla checkbox, lo provato e funziona spero che sia tutto chiaro
ciao
Andrea

Loading