主题：[求助]跨表输入报错

在表“产品描述”列“订单号”中输入数字后，在表“用户1”、“用户2”列“订单号”中就出现相应的订单号。具体DataColChanged事件代码如下：

If e.DataRow("订单号").length > 0 Then
    For Each dt As DataTable In DataTables
        For Each xsdr As DataRow In DataTables("用户").DataRows
            If dt.name = xsdr("用户名") Then
                Dim ddhdr As DataRow = DataTables(dt.name).find("订单号 = '" & e.DataRow("订单号") & "'")
                If ddhdr Is Nothing Then
                   ddhdr("订单号") = e.DataRow("订单号")
                End If
            End If
        Next
    Next
End If

运行过程中出现如图所示错误： 

If e.DataRow("订单号").length > 0 Then   '如果当前表中的订单号存在
    For Each dt As DataTable In DataTables   '在当前项目中查找与用户表中用户名列相同的表
        For Each xsdr As DataRow In DataTables("用户").DataRows
            If dt.name = xsdr("用户名") Then    '如果表名与用户名列中某一用户名相同
                Dim ddhdr As DataRow = DataTables(dt.name).find("订单号 = '" & e.DataRow("订单号") & "'")  '在用户名相同的表中查找与产品描述表中当前输入订单号相同的行
                If ddhdr Is Nothing Then  '如果没有找到
                   ddhdr("订单号") = e.DataRow("订单号")   '将当前产品描述表中输入的订单号赋给该用户表中的订单号列中第一个空白单元格
                End If
            End If
        Next
    Next
End If