for each s as string in DataTables("表A").getvalues("产品")
For Each dr1 As DataRow In DataTables("表A").Select("产品='" & s & "'") Dim dr2 As DataRow = DataTables("表B").AddNew() For Each dc As DataCol in DataTables("表A").DataCols dr2(dc.Name) = dr1(dc.name) Next Next
加好友 
发短信
Post By：2020/6/8 20:28:00 [显示全部帖子]
