主题：我今天对了一天了，哪位能告诉我，代码哪里错了吗？

请看以下代码：

Dim nma() As String = {"产品成本价","订单编号","供应商名称","产品名称","产品数量","产品piao面价","产品批号","仓库名称","入出库类型"} 'A表数据来源列
Dim  nmb()  As  String = {"产品入仓成本价","订单编号","供应商名称","产品名称","产品数量","产品入仓piao面价","产品批号","仓库名称","入出库存类型"} 'B表数据接收列
Dim tr As DataRow
With DataTables("库存明细表")
     tr = .Find("订单编号 = '"& tables("订单明细表").Current("订单编号")&"'")  '找出最后一次订购PD01产品的记录
    End With
If tr("订单编号")="" Then

For Each r As Row In Tables("订单主表.订单明细表").Rows
    Dim dr As DataRow = DataTables("库存明细表").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
Next
End If

此主题相关图片如下：0j~)y%$als6~3kem~tddhks.jpg

多谢各位了。学到不少！