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

在表“产品描述”列“订单号”中输入数字后，在表“用户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

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