标题：[求助] 急求代码 搞定（郁闷-这么简单的问题也要想这么久）
问题一：
If e.NewValue Is Nothing Then
e.DataRow("应发金额") = Nothing
Else
Dim dr As DataRow
dr = DataTables("奖金发放表").Find("[姓名] = '" & e.DataRow("姓名") & "'")
If dr IsNot Nothing and e.DataRow("发放日期") = "'" & dr("发放日期") & "'" Then
e.DataRow("应发金额") = dr("半年奖")
End If
End If
End If
答案：
If e.DataCol.Name = "姓名" Then
If e.NewValue Is Nothing Then
e.DataRow("应发金额") = Nothing
Else
Dim dr As DataRow
dr = DataTables("奖金发放表").Find("[姓名] = '" & e.DataRow("姓名") & "'")
If dr IsNot Nothing Then
If dr IsNot Nothing and e.DataRow("发放日期") = dr("发放日期") Then
e.DataRow("应发金额") = dr("半年奖")
End If
End If
End If
End If
另一问题：
If e.DataCol.Name = "实发金额" OrElse e.DataCol.Name = "发放日期" Then
If dr3 IsNot Nothing And e.DataRow("发放日期") = dr3("发放日期") then
dr3("半年奖") = e.DataRow("实发金额")
Else dr3("半年奖") = Nothing
End If
End If
End If
答案：
Dim dr3 As DataRow = DataTables("工资表").Find("[姓名] = '" & e.DataRow("姓名") & "'")
If e.DataCol.Name = "半年奖" OrElse e.DataCol.Name = "发放日期" Then
If dr3 IsNot Nothing
If dr3 IsNot Nothing And e.DataRow("发放日期") = dr3("发放日期") then
dr3("应发金额") = e.DataRow("半年奖")
Else dr3("应发金额") = Nothing
End If
End If
End If
If e.DataCol.Name = "姓名" Then
If e.Datarow.IsNull("姓名") Then
e.Datarow("应发金额") = DBNull.Value
Else
Dim dr As DataRow
dr = DataTables("奖金发放表").Find("[姓名] = '" & e.datarow("姓名") & "'")
If dr IsNot Nothing Then
e.DataRow("应发金额") = dr("半年奖")
end if
end if
end if
你试试吧,估计是FIND那部分少一个单引号.
If e.DataCol.Name = "姓名" Then
If e.Datarow.IsNull("姓名") Then
e.Datarow("应发金额") = DBNull.Value
Else
Dim dr As DataRow
dr = DataTables("奖金发放表").Find("[姓名] = '" & e.datarow("姓名") & "'")
If dr IsNot Nothing Then
e.DataRow("应发金额") = dr("半年奖")
end if
end if
end if
你试试吧,估计是FIND那部分少一个单引号.
哦，少个单引号是我发帖时搞错了，或也可以dr = DataTables("奖金发放表").Find("[姓名] = '" & e.NewValue & "'")
但这些都不是问题关键，我是想条件 e.DataRow("发放日期") = dr("发放日期") 成立后才 e.DataRow("应发金额") = dr("半年奖")
因为奖金发放表会一直存在，如果没有这个条件，至下个月造表时，又会再一次导入半年奖