主题：帮忙看看我这个代码错在哪儿?

   我想在订单辅料这个表中,在IO/供应商编号这两列中输入数据时,在订购单编号列中,将生产批号表中相对应的订购单编号列的数据调用进来,可我根据LXL老师编写的一个代码修改后不起作用?所以想请帮忙看看.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跟单系统-1.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跟单系统-1.table

错得很离谱啊，何况对于电脑来说，多一个少一个引号都是不行的。
看看这个代码：

If e.DataCol.Name = "IO" OrElse e.DataCol.Name = "供应商编号" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[IO] = '" & e.DataRow("IO") & "' And [供应商编号] = '" & e.DataRow("供应商编号") & "'"
    dr = DataTables("生产批号").Find(Filter)
     If dr IsNot Nothing Then
        e.DataRow("订购单编号") = dr("订购单编号")
    End If
End If

哦！明白，第一个语句，我在看帮助时就理解过的，怎么到这儿就不懂了呢。

smileboy老师写的不是我所要的，狐爸的对了。我好好研究研究。