代码没有错,不过可以简化为:
If e.DataTableName = "yonghu" Select Case e.User.name Case "城西","城北","城南" e.SelectString = "Select * From {yonghu} where [pian] = '" & e.User.Name & "'" End SelectEnd If