主题：多行多列的插入数据

dim gsx() AS string = {"工序1","工序2"，"工序3"}

for each dr as datarow in datatables("表A").Datarows

     for each gx as string in gxs

           if dr(gx) > 0 then

               dim dr1 as datarow = datatables("表B").Addnew

               dr1("姓名") = dr("姓名")

               dr1("工序") = gx

               dr1("数量") = dr(gx)

          end if

     next

next

Dim gsx() As String = {"工序1","工序2","工序3"}
For Each dr As DataRow In DataTables("表A").Datarows
    For Each gx As String In gsx
        If dr(gx) > 0 Then
            Dim dr1 As DataRow = DataTables("表B").Addnew
            dr1("姓名") = dr("姓名")
            dr1("工序") = gx
            dr1("数量") = dr(gx)
        End If
    Next
Next

 

再不行的话，就自己设计好表A和表B，输入数据发上来，方便别人测试。