主题：查找，并由竖列变横行

Dim drs As List(of DataRow) = DataTables("表A").Select("","新品ID,工程")
Dim dr As DataRow = drs(0)
Dim cnt As Integer = 2
For i As Integer = 1 To drs.count -1
    If drs(i)("新品ID") = dr("新品ID") AndAlso drs(i)("工程") = dr("工程")
        dr("使用机器" & cnt) = drs(i)("使用机器1")
        drs(i).delete
        cnt = cnt + 1
    Else
        cnt = 2
        dr = drs(i)
    End If
Next