If e.DataTableName = "员工基础表" Then msgbox(1) Dim usbm As String usbm = e.user.group If usbm = "天誉" usbm = "天誉公司" '这个USBM要去和"二级"相对照 Else usbm = "天誉公司" & usbm & "矿" End If msgbox(usbm) e.SelectString = "Select * Fro m {员工基础表} Where [二级] = '" & usbm & "'" End If