帮忙看看我这个代码错在哪儿? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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