If e.DataTableName = "表A" e.selectString = "select * from {表A} where 创建人 = '" & e.User.Name & "'" End If If e.DataTableName = "表A" AndAlso e.User.Group = "审核" Then e.selectString = "select * from {表A} where 金额 Is not Null" End If If e.DataTableName = "表A" AndAlso e.User.Group = "总经理" Then e.selectString = "select * from {表A}" End If