组合框+文本框查询 问题

玻璃球

请大佬帮忙看一下问题出在哪里了，谢谢




发票分类 组合框：Cbo_分类
搜索框：Txt_搜索

1. Dim strSql As String
   
2.         strSql = "select * from Q_发票信息 where " & [CBO_分类].Value & " Like '*" & Me.TXT_搜索 & "*'"
   
3.         Me!发票信息_子窗体.Form.RecordSource = strSql '显示查询结果

复制代码

roych

Dim strSql As String
        strSql = "select * from Q_发票信息 where " & [CBO_分类].Value & " Like '*" & Me.TXT_搜索 & "*'"
        Me!发票信息_子窗体.Form.RecordSource = strSql '显示查询结果

[CBO_分类].Value是字段名么？如果不是字段名，而是字段值的话，这显然不对。不过话又说回来，如果是字段名的话，这表设计不太好，后续工作可能很麻烦。这类似于把每个科目设置为一列，数据填充为成绩的做法。单个看似乎没太大问题，但求某些学生各科平均分就不是那么方便了。