无法实现的现象是什么?
If e.DataTableName = "委托台账" Then
e.Filter = "[_Identify] Is Null"
End If
If e.DataTableName = "工作日志" Then
If e.User.Group = "检测"
Dim StartDate As Date = Date.Today().AddDays(-3)
e.Filter = "[日期] > #" & StartDate & "#"
Else
e.Filter = "[_Identify] Is Null"
End If
End If