PrivateSubCommand5_Click(IndexAsInteger)'精确查询信息DimstrSQLAsStringDimintNumAsIntegerstrSQL="select*fromzhaijidiwhere"IfTrim(Text11.Text)<>""ThenstrSQL=strSQL&"SmID='"&Trim(Text11.Text)&"'"IfTrim(Text12.Text)<>""ThenstrSQL=strSQL&"and户主姓名='"&Trim(Text12.Text)&"'"IfTrim(Text13.Text)<>""ThenstrSQL=strSQL&"and房屋编号='"&Trim(Text13.Text)&"'"IfTrim(Text14.Text)<>""ThenstrSQL=strSQL&"and宅基地面积='"&Trim(Text14.Text)&"'"IfTrim(Text15.Text)<>""ThenstrSQL=strSQL&"and地籍号="&Trim(Text15.Text)IfTrim(Text16.Text)<>""ThenstrSQL=strSQL&"and建筑时间='"&Trim(Text16.Text)&"'"IfMid(strSQL,27,1)="a"ThenstrSQL=Left(strSQL,26)&Mid(strSQL,30)EndIfIfMid(strSQL,28,1)=""ThenMsgBox"未输入查询项目,将查询出所有信息",,"提示"strSQL="select*fromzhaijidi"EndIfAdodc1.RecordSource=strSQLAdodc1.RefreshCallYzDataGridNameCallDataGrid1_ClickIfAdodc1.Recordset.EOF=TrueThenMsgBox"没有查询出符合条件的信息",,"提示"lab17.Caption="共查询出符合条件的记录"&Adodc1.Recordset.RecordCount&"条"IfAdodc1.Recordset.EOF=TrueThenDataGrid1.Enabled=FalseElseEndIfDataGrid1.Enabled=TrueEndSub为什么运行时，会报错：WHERE子句语法错误对象“refresh”的方法“IAdodc”失败急！！！谢了
参考答案：这当然不对。首先如果所有选项都没有填写，那么就是select*fromzhaijidiwhere这是明摆着的错误。再者，如果不填写第一个直接填写第二个，就是select*fromzhaijidiwhereand户主姓名='秦桧'这当然也不对 |
