Dim Names As String() = {"业务","费用","柜型","提单","进仓","核销"} For Each Name As String In Names if e.DataTableName = name AndAlso e.User.Type <> UserTypeEnum.Developer then e.SelectString = "Select * From {" & name & "} Where [_Identify] Is Null " End If next