If e.DataCol.Name = "编制类型" Then
dim dr as datarow = DataTables("表A").Find("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "'")
if dr isnot nothing then
if e.oldvalue > "" then
dr("实有_" & e.oldvalue) = e.DataTable.Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='" & e.oldvalue & "'")
end if
if e.newvalue > "" then
dr("实有_" & e.newvalue ) = e.DataTable.Compute("count(编制类型)", "所在单位 = '" & e.DataRow("所在单位") & "' and 编制类型='" & e.newvalue & "'")
end if
end if
End If
加好友 
发短信
Post By：2022/9/24 9:20:00 [显示全部帖子]
