For Each dr As Row In Tables("工资导入").Rows
Dim gr As DataRow = DataTables("工资总表").SQLFind("年份 = " & dr("年份") & " And 月份 = " & dr("月份") & " And 姓名1 = '" & dr("姓名1") & "'")
msgbox("年份 = " & dr("年份") & " And 月份 = " & dr("月份") & " And 姓名1 = '" & dr("姓名1") & "'")
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
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
问题：当gr存在的时候，本来应该gr(dc.name) = dr(dc.name)，但是运行后发现数据没变，但是当gr不存在的时候，运行结果正常！
我用msgbox读取gr（dc.name）得到的结果又是正常的，但是代码运行完了，数据却没变，求解？
加好友 
发短信
Post By：2016/8/16 10:29:00 [只看该作者]
