matrici

[sara81it]

Ciao a tutti
come faccio a caricare su form tante checkbox quante sono le riche che leggo nel db??

Grazie
SAra

[DeBe99]

sul form metti una checkbox e gli imposti la properietà index a 0 (in fase di progettazione). Poi per caricarne una nuova:

load(nomeCheckBox(ubound(nomeCheckBox)))

[sara81it]

ok, il mio problema è che dovrei caricarle su una listview... come posso fare?


Grazie

[DeBe99]

Allora è più semplice. :adhone:
Se usi la versione 6.0 dei microsoft window common controls, la listview ha la properietà checkboxes che indica se aggiungere le checkbox per ogni riga. con ListView.ListItems(indice).Checked verifichi il check per ogni riga.

[Markho]

invece che una checkbox inserisci sul primo campo delle icone....... acceso e spento.....

cerca .smallicon nella guida.....

[Markho]

nel modo che ti dicevo prima hai un risultato come l'immagine allegata:

[sara81it]

ok, il discorso del checed è molto valido, ma come facci oa far aggiornare il campo del db relativo a quella linea con DAO??

grazie mille
Sara

[DeBe99]

ListView.ListItems(indice).Checked =rs("campobooleano")

[sara81it]

Qui carico la listview1 con il campo checked

Private Sub Form_Load()
c = 0
TXTDATAOGGI.Text = Date

Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
 sql = "select * from ScadenzarioPag Order by ScadFatt"
 'where ScadFatt >= # " & Format(Date, "yyyy/mm/dd") & "#  Order by ScadFatt"
    Set rs = db.OpenRecordset(sql)
 ListView1.ColumnHeaders.Add , , "Data Scadenza", ListView1.Width / 8
   ListView1.ColumnHeaders.Add , , "N°Fattura", ListView1.Width / 8, 1
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 4
   ListView1.ColumnHeaders.Add , , "N°DDT", ListView1.Width / 12, 1
   ListView1.ColumnHeaders.Add , , "Totale da Pagare", ListView1.Width / 5.33, 1
    ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 'Scorro tutta la query
   ind = ind + 1
//////////////////////////
qui vorrei che il flag della checked fosse segnato de trova 1 nel campo del DB. Ma non funziona
//////////////////////////

   If (rs!Pagato) = "1" Then
   ListView1.Checkboxes = True 
   End If

   Set mItem = ListView1.ListItems.Add(, , CStr(rs("ScadFatt")))
   mItem.ListSubItems.Add , , CStr(rs("NFatt"))
   mItem.ListSubItems.Add , , CStr(rs("Cliente"))
   mItem.ListSubItems.Add , , CStr(rs("NDDT"))
   mItem.ListSubItems.Add , , CStr(rs("TotaleFatt")) & " €"
  
   rs.MoveNext
Loop
    rs.Close
End Sub

qui invece vorrei fare un aggiornamento dul db quando metto un nuovo flag, ma non funziona!!!

Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
If ListView1.Checkboxes = True Then
sql = "Update ScadenzarioPag set Pagato = ('" & 1 & "') where ListView.ListItems(ind).Checked = true"
db.Execute (sql)
End If
End Sub

come mai??

Grazie Sara

[DeBe99]

Private Sub Form_Load()
c = 0
TXTDATAOGGI.Text = Date
ListView1.Checkboxes = True

Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
 sql = "select * from ScadenzarioPag Order by ScadFatt"
 'where ScadFatt >= # " & Format(Date, "yyyy/mm/dd") & "#  Order by ScadFatt"
    Set rs = db.OpenRecordset(sql)
 ListView1.ColumnHeaders.Add , , "Data Scadenza", ListView1.Width / 8
   ListView1.ColumnHeaders.Add , , "N°Fattura", ListView1.Width / 8, 1
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 4
   ListView1.ColumnHeaders.Add , , "N°DDT", ListView1.Width / 12, 1
   ListView1.ColumnHeaders.Add , , "Totale da Pagare", ListView1.Width / 5.33, 1
    ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 'Scorro tutta la query
   Set mItem = ListView1.ListItems.Add(, , CStr(rs("ScadFatt")))
   mItem.ListSubItems.Add , , CStr(rs("NFatt"))
   mItem.ListSubItems.Add , , CStr(rs("Cliente"))
   mItem.ListSubItems.Add , , CStr(rs("NDDT"))
   mItem.ListSubItems.Add , , CStr(rs("TotaleFatt")) & " €"
   If (rs!Pagato) = "1" Then
      mItem.Checked=True
   else
      mItem.Checked=False
   End If
   
   rs.MoveNext
Loop
rs.Close
End Sub

Quello che fai sul command1, invece è incomprensibile. Occhio a non confondere SQL con VB.
Da quallo che ho capito vuoi sovvrascrivere tutti i record con il flag ceckato, quindi cicli tutti gli elementi contenuti nel tuo listview, e se la properietà checked dell'elemento è True fai l'update per quel record...

Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
If ListView1.Checkboxes = True Then :nonono: 'indica solo se sono presenti i checkbox non so sono flaggati
sql = "Update ScadenzarioPag set Pagato = ('" & 1 & "') where ListView.ListItems(ind).Checked = true" :dottò: 'SQL o VB?
db.Execute (sql)
End If
End Sub

come mai??

Grazie Sara