主题：以A表中的数据为条件查找B表

怎样实现在A表中双击某一个字段，以这个字段上的数据作为查找条件来查找B表中符合条件的数据呢。

DoubleClick事件

老师追问一下假如第十列是一个布尔变量只有是‘‘否’’的情况下执行并将查询到的数据行每个字段进行赋值怎么处理呢？

If e.Col.Name = "第十列" Then
    e.Cancel = True '禁止进入编辑状态
    For Each dr As DataRow In DataTables("表B").Select("第一列=" & e.Row("第十列"))
        dr("第二列") = 123
        dr("第三列") = 123
    Next
End If

运行代码时出错

此主题相关图片如下：125.png

贴出你的代码，并说明列类型

Dim cz As DataRow = DataTables("表B").Find("id='" & e.Row("id") & "'")
If cz Is Nothing Then
    MessageBox.Show("查找的数据不存在,无法添加数据","提示")
Else
    If e.Col.Name = "id" Then
        e.Cancel = True '禁止进入编辑状态
        For Each dr As DataRow In DataTables("表B").Select("id=" & e.Row("id")) '赋值所有行
            dr("id") = e.Row("id")
            dr("第二列") = e.Row("第二列")
            dr("第三列") = e.Row("第三列")
        Next
    End If
End If

 

“ID”必须是数字运行不出错，只要是其他类型都会报错，是怎么回事呢?

此主题相关图片如下：2222.png

 双击的次数多了就会弹出下面的对话框

此主题相关图片如下：33333.png