主题：求datatables转 tables

If  Tables("生产指令").Current("审核") = False Then

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("名称")
    Next
Next

Else
    MessageBox.show("本订单已经审核,不能操作!")
End If

求把黄色代码改成使用tables,不需要提取后台数据，只需要提取当前表中的当前行数据，求老师们帮帮忙，谢谢