If e.DataCol.name = "审批" Then e.DataRow.save
dim c1 as integer = e.datatable.sqlcompute("count(审批)", "审批=1 and 编号='" & e.DataRow("编号") & "'")
dim c2 as integer = e.datatable.sqlcompute("count(审批)", "编号='" & e.DataRow("编号") & "'")
Dim pr As DataRow = datatables("财务_Table2").find("编号='" & e.DataRow("编号") & "'")
If pr IsNot Nothing Then
pr("审批") = (c1 = c2)
End If
End If