Visualizzazione dei risultati da 1 a 5 su 5

Discussione: checkbox su DataGrid

  1. #1
    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.

  2. #2

    idem

    Anche a me servirebbe capire come si fa questa cosa...

    Grazie
    Ciao ciao

  3. #3
    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

  4. #4

    grazie

    certo che mi interessa ancora, è tutto il giorno che sto cercando una soluzione

    grazie mille

  5. #5
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.