在“年度工资库”表事件中写入下面代码，但不起作用，没有数据增加到“工资年度汇总
”表中
Dim dr As DataRow = e.DataRow
Dim filt As String = "姓名 = '" & dr("姓名") & "'And 员工编号 = '" & dr("员工编号") & "' And 年度 = " & dr("年度")
Select Case e.DataCol.Name
Case "员工编号"
Dim fdr As DataRow = DataTables("工资年度汇总").Find(filt)
If dr.IsNull("姓名") = False AndAlso dr.IsNull("年度") = False Then
If fdr Is Nothing Then
Dim ndr As DataRow = DataTables("工资年度汇总").AddNew()
ndr("姓名") = dr("姓名")
ndr("年度") = dr("年度")
ndr("员工编号") = dr("员工编号")
ndr.Save()
End If
End If
End Select
[此贴子已经被作者于2019/1/11 15:48:51编辑过]
加好友 
发短信
Post By：2019/1/11 15:47:00 [显示全部帖子]
