For Each adr As DataRow In DataTables("泵送明细_Table8").DataRows
If adr.IsNull("年月") = False Then
For Each adc As DataCol In DataTables("泵送明细_Table8").DataCols
If adc.Name.StartsWith("泵工基础工资") AndAlso adr.IsNull(adc.Name) = False Then
Dim bdr As DataRow = DataTables("泵送明细_Table6").AddNew()
bdr("第一列") = adr("年月")
bdr("第二列") = adc.Name.split("_")(1)
bdr("第三列") = adr(adc.Name)
End If
Next
End If
Next
加好友 
发短信
Post By：2019/6/21 15:36:00 [显示全部帖子]
