For Each dr As Row In Tables("工资导入").Rows
Dim gr As DataRow = DataTables("工资总表").Find("年份 = " & dr("年份") & " And 月份 = " & dr("月份") & " And 姓名1 = '" & dr("姓名1") & "'")
If gr Is Nothing Then
gr = DataTables("工资总表").sqlFind("年份 = " & dr("年份") & " And 月份 = " & dr("月份") & " And 姓名1 = '" & dr("姓名1") & "'")
End If
If gr IsNot Nothing Then
For Each dc As DataCol In DataTables("工资导入").DataCols
If dr.IsNull(dc.name) = False Then
gr(dc.name) = dr(dc.name)
End If
Next
gr.Save
Else
Dim gr1 As Row = Tables("工资总表").AddNew
For Each dc As DataCol In DataTables("工资导入").DataCols
gr1(dc.name) = dr(dc.name)
Next
End If
Next
加好友 
发短信
Post By：2016/8/16 14:17:00 [显示全部帖子]
