任意字段组合查询怎么实现？

龙卷风

我想实现一个面板操纵形式：就是在表和查询及关系都已完成的情况下，设计一个窗体，上面带有各个字段按钮，比如：姓名（档案表），性别（档案表），年龄（档案表）;岗位(工资表)，工资(工资表)，职称(工资表)

我想实现在一个表板上实现以上字段的任意组合查询，比如，　我选姓名，工资　怎么实现，　这个问题我一直没有想通能给我解答一下吗？

HG

用VBA構造一個自動組合的SQL語句即可，當然也可以用用TSQL構造。
我用TSQL構造的代碼，太復雜，您想看麼。

adge

我想看，能贴上来吗？？？？

runml

Private Sub command18_Click()
strsql = "SELECT 型号,旧型号,规格尺寸,牌子,库存量,产地,类别,货位,报价 FROM 产品 where true"
If Not IsNull(grp1) Then strsql = strsql & " and (牌子=[forms]![按品牌类型查询]![grp1])"
If Not IsNull(grp2) Then strsql = strsql & " and 类别=[forms]![按品牌类型查询]![grp2]"
If Not IsNull(grp4) Then strsql = strsql & " and 货位=[forms]![按品牌类型查询]![grp4]"
If Not IsNull(grp5) Then strsql = strsql & " and 规格尺寸=[forms]![按品牌类型查询]![grp5]"
If Not IsNull(grp6) Then strsql = strsql & " and 产地=[forms]![按品牌类型查询]![grp6]"

Me![按品牌类型查询子窗体].Form.RecordSource = strsql
'DoCmd.OpenReport "按指定条件查询报表", acViewPreview, strsql
End Sub