controllare se c'è almeno una checkbox true in un panel

[doublemm]

ciao a tutti. Ho un panel contenente 7 checkbox (i sette giorni della settimana) quando vado a salvare i dati in un database devo fare un controllo che che almeno una checkbos sia attivata. C'è un modo per farlo velocemente senza fare tante if?

[perseo]

Prova con questo...

Codice: gambas [Seleziona]

Public Function controllocheckbox(pannello As Panel) As Boolean
Dim chb As Control
  For Each chb In pannello.Children
    If Object.Class(chb).Name = "CheckBox" Then
         if Object.GetProperty(chb, "Value", True) Then Return True
    Endif
  Next
End

Dal tuo codice basta richiamare la routine mettendo il nome del pannello che vuoi controllare...

If controllocheckbox(nome_del_pannello_che_vuoi_controllare) Then ....memorizza nel database

 

[doublemm]

grazie appena ho 2 secondi provo