在数据库中插入一行后更新列表框

Question

我有一个列表框，它有一个连接到访问数据库的绑定源。有以下代码创建新行并将其添加到我的访问数据库和数据网格视图，但更改不会在列表框中更新。

    Dim drv As DataRowView = DirectCast(EQtblBindingSource.AddNew(), DataRowView)

    drv.BeginEdit()

    drv.Row.BeginEdit()

    drv.Row("eiD") = "SS"
    drv.Row("EQ_NAME") = "DUMMY"

    drv.Row.EndEdit()

    drv.DataView.Table.Rows.Add(drv.Row)
    EQ_tblTableAdapter.Update(EQDATADataSet.EQ_tbl)                
    EQtblBindingSource.ResetBindings(True)

有没有办法在我添加新行后立即反映更改？ resetbindings 似乎不起作用或重新加载或刷新我的列表框的另一个选项。有什么想法请帮忙。

谢谢

Answer 1

确保您的列表框的数据源设置为绑定源。

您的代码可以简化为：

   With EQtblBindingSource
        .AddNew()
        DirectCast(.Current, DataRowView)("eiD") = "SS"
        DirectCast(.Current, DataRowView)("EQ_NAME") = "DUMMY"
        .EndEdit()
    End With
    EQ_tblTableAdapter.Update(EQDATADataSet.EQ_tbl)

在数据库中插入一行后更新列表框

Update Listbox after inserting a row in database

vb.net

listbox

datagridview

bindingsource