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

运行代码时出错

此主题相关图片如下：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