Select Case e.DataCol.Name
Case "日期"
If e.DataRow("日期") IsNot Nothing Then
Dim dr, dr1 As DataRow
dr1 = DataTables("分摊目录").Find("[百度禁止分摊] = '" & e.DataRow("姓名") & "'")
If dr1 IsNot Nothing Then
e.DataRow("费用") = 1
Else
e.DataRow("费用") = Nothing
End If
dr = DataTables("分摊目录").Find("[姓名] = '" & e.DataRow("姓名") & "' and [日期]=#" & e.DataRow("日期") & "#")
If dr IsNot Nothing Then
e.DataRow("离四") =1
Else
e.DataRow("离四") =Nothing
End If
End If
End Select
上述代码必须重置否则不执行