请告诉我这里的错误在哪里

Question

我想通过 Textbox 控件过滤我的 Dataview，但是当我运行程序时它显示以下错误

“找不到表 0”

这是我的代码

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.KeyPress

        Dim conn As New OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\Kyc.mdb"
        conn.Open()
        Dim cmdfilter As String = " select ID as الرقم_الوطني,fname as الاسم_الاول,sname as الاسم_الثاني,thname as الاسم_الثالث,finame as الاسم_الرابع from O_name "
        Dim dataadabtar As New OleDbDataAdapter(cmdfilter, conn)
        Dim ds As New DataSet
        Dim dsview As DataView
        Dim bs As New BindingSource
        dsview = ds.Tables(0).DefaultView
        bs.DataSource = dsview
        bs.Filter = "الرقم_الوطني LIKE '" & TextBox1.Text & "'"
        DataGridView1.DataSource = bs
        conn.Close()
End Sub 

请帮帮我

Answer 1

错误来自您的这部分代码..

Dim ds As New DataSet
....
dsview = ds.Tables(0).DefaultView

你永远不会分配 ds

Answer 2

试试这个

    Dim dataadabtar As New OleDbDataAdapter(cmdfilter, conn)
    Dim ds As New DataSet
    Dim dsview As DataView
    Dim bs As New BindingSource

    dataadabtar.Fill(ds);

    IF ds.Tables.Count > 0 Then
      dsview = ds.Tables(0).DefaultView
      bs.DataSource = dsview
      bs.Filter = "الرقم_الوطني LIKE '" & TextBox1.Text & "'"
      DataGridView1.DataSource = bs
    END IF;