Dim BB As String
BB = e.Form.Controls("输入查询姓名").Value
If BB = "" Then
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理} where false
End Select
ELSE
Select [_Identify],[单位名称],[姓名],[身份证号] from {人事工资管理}
End if
End Select?这个语法很“乌龙”的!除了这个,其余的代码看起来也很莫名其妙,还是提供你做的例子