主题：datarow改为ROW

能否把如下代码里面的datatables中的datarow内容改为当前表（table）里面的当前行(row)：

For Each dr As DataRow In DataTables("指令明细").Select("工序 is not null")
    Dim ary() As String = dr("工序").split("-")
    For Each s As String In ary
        Dim ndr As Row = Tables("生产指令.金工报表").addnew
        Dim a() As String = s.split("*")
        ndr("工序") = a(0)
        ndr("单价") = a(1)
        ndr("名称") = dr("名称")
ndr("计划数量") = dr("生产数量")
    Next
Next

我要的是当前的行分解到当前的表，能帮忙写下完整的代码吗，谢谢

DataTables("指令明细").LoadFilter = " 审核=True "
DataTables("指令明细").Loadtop=""
DataTables("指令明细").Load
For Each a As Row In Tables("生产指令.指令明细").Rows
  Dim ary() As String = dr("工序").split("-")
    For Each s As String In ary
        Dim ndr As Row = Tables("生产指令.金工报表").addnew
        Dim a() As String = s.split("*")
        ndr("工序") = a(0)
        ndr("单价") = a(1)
        ndr("名称") = dr("名称")
ndr("计划数量") = dr("生产数量")
    Next
Next
Next

这个代码好像有问题