主题：[求助]跨表验证物品编号

写一大堆没看懂你想说什么

If e.DataCol.Name = "编号" Then '发生变化的是编号吗?
    If e.DataRow.IsNull("编号") = False Then
        Dim dr As DataRow
        dr = DataTables("初期建帐").Find("编号 = '" & e.DataRow("编号") & "'" )
        If dr Is Nothing
            msgbox("没找到")
        End If
    End If
End If