我想实现在一个表板上实现以上字段的任意组合查询,比如, 我选姓名,工资 怎么实现, 这个问题我一直没有想通能给我解答一下吗?作者: HG 时间: 2002-11-28 01:48
用VBA構造一個自動組合的SQL語句即可,當然也可以用用TSQL構造。
我用TSQL構造的代碼,太復雜,您想看麼。作者: adge 时间: 2002-12-20 08:37
我想看,能贴上来吗????作者: runml 时间: 2003-1-1 06:45
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