读取 vb.net 绑定到数据库表的检查列表框的检查状态

Question

>我可以使用以下代码成功地填充 vb.net 数据库中存储的数据的清单框：

 Private Sub report_enter() Handles tp_report.Enter
    Dim rep As DataTable = sqlite.SelectData("SELECT field,name,obligatory from cnf_oblfields WHERE module='report'")
    clb_obl.DataSource = rep
    clb_obl.ValueMember = "field"
    clb_obl.DisplayMember = "name"
    For i = 0 To rep.Rows.Count - 1
        clb_obl.SetItemChecked(i, sqlite.Int2Bool(rep.Rows(i).Item(2)))
    Next
End Sub

现在，用户可以选中和取消选中某些框。我想将这些参数的新状态存储回表中。我尝试了以下代码：

Private Sub bt_obli_save_Click(sender As Object, e As EventArgs) Handles bt_obli_save.Click
    For Each item In clb_obl.Items
        Dim row As DataRow = item.row
        MsgBox("INSERT OR REPLACE INTO cnf_oblfields ('field', 'obligatory') VALUES ('" & item.item("field").ToString & "', '" & item.item("obligatory").ToString & "')")
    Next
End Sub

我的问题是，将结果写回数据库的 SUB 会返回原始数据，而不是我所做的更改。这可能是由于后台绑定了数据表？

感谢您的帮助！卢卡斯

Answer 1

当你

修改复选框时，你必须更新数据表，就像这样

Private Sub clb_obl_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles clb_obl.ItemCheck
    DirectCast(clb_obl.Items(e.Index), DataRowView)("obligatory") = e.NewValue
End Sub