0

我正在使用 vb.net 并访问 2007 我有一个关于组合框刷新的问题

这是我的代码：

Private Sub comboRefresh()

    Try
        cmbSn_no.DataSource = Nothing
        cmbSn_no.Items.Clear()

        Dim asql As String = ("SELECT * FROM Vendor_det")
        da = New OleDb.OleDbDataAdapter(asql, cnnOLEDB)
        da.Fill(ds, "Vendor_det")

        cmbSn_no.ValueMember = "sr_no"
        cmbSn_no.DataSource = ds.Tables(0)
        cmbSn_no.SelectedIndex = 0


        'DataGridView1.DataSource = ds.Tables(0)
        'DataGridView1.Update()

    Catch ex As Exception
        MsgBox("ERROR : " & ex.Message.ToString)

    End Try

End Sub

Private Sub cmbSn_no_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbSn_no.SelectedIndexChanged


    Dim asql As String = ("SELECT * FROM Vendor_det where sr_no='" & cmbSn_no.Text & "'")
    cnnOLEDB.Open()
    cmd = New OleDb.OleDbCommand(asql, cnnOLEDB)
    dr = cmd.ExecuteReader
    If dr.Read = True Then

        cmbSn_no.Text = dr("sr_no")
        txtPart_no.Text = dr("part_no")
      .......... 
    End If
    cnnOLEDB.Close()
End Sub

我从添加和删除记录按钮单击事件中调用 comborefresh() 方法。如果我不使用注释代码并单击添加/删除按钮，则输出如下所示：

数据库中的记录：

abcd123 bbbc123

如果我添加记录 cccc123 .. 它应该更新并且我的组合框应该填充以下记录：

abcd123 bbbc123 cccc123

但它充满了

abcd123 bbbc123 cccc123 abcd123 bbbc123

如果我使用注释行，那么组合框将充满“System.Data.DataRowView”没有提示错误，但我没有得到我的答案......即使我已经尝试过......

combobox.refresh() combobox.selectedindex=-1 和 combobox.items.clear()

这没用

请解决我的问题....提前谢谢您...:)

4

1 回答 1

0

您刷新 ComboBox 的代码应该没问题，但无需调用 cmbSn_no.Items.Clear()，因为 cmbSn_no.DataSource = Nothing 将删除 ComboBox 中的所有数据。

但是，根据您的代码，我假设您将 DataSet (ds) 声明为表单变量，因此当您要填写ds时，旧数据（前 2 个数据 - abcd123 bbbc123）仍然存在，然后运行 ​​Fill方法会将这些旧数据与一整套新数据相加——即 abcd123 bbbc123 cccc123。为确保，请尝试在 da.Fill(ds, "Vendor_det") 之后添加此代码：

MsgBox.Show(ds.Tables(0).Rows.Count)

我认为它会显示 5，而不是 3。如果是这种情况，请尝试在 Fill 之前先刷新 DataSet，方法是创建 DataSet 的新实例，或者删除表。

于 2013-03-25T08:42:28.820 回答