关于使用代码设置查询字段可见性的问题。

dlack

各位，小弟刚开始学习数据库，有个关于查询的问题，请教各位，请帮忙解答。
我想利用查询设置字段可见性来对字段进行统计。请问如何用代码来设置查询字段的可见性。
附件实例是我下来学习的，这个实例可以是每次选择后利用选择字段重新做查询，但是查询
里面的“总计“字段显示为了”Expression“，无法总计。请各位帮忙该一下，使得”总计“
字段可以设置为”总计“

Private Sub cmdOK_Click()
On Error GoTo HandleErr
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close acForm, "选择字段对话框", acSaveYes
CreateQry "materiallimitquery"
exitHere:
    Exit Sub
HandleErr:
    Select Case Err
       Case Else
            MsgBox Err & ": " & Err.Description, vbCritical, _
             "错误发生在 Form_选择字段对话框.cmdOK_Click 中"
    End Select
   Resume exitHere
   Resume
End Sub

Henry D. Sy

查询可以用dao定义
报表和窗体可以用定义过的查询作为记录源或源对象

dlack

Henry D. Sy 发表于 2012-4-6 09:49
查询可以用dao定义
报表和窗体可以用定义过的查询作为记录源或源对象

版主，能提供一个实例吗？刚学的，不咋懂。用dao定义的查询，有总计功能吗？

Henry D. Sy

把你自己的例子传上来

dlack

Henry D. Sy 发表于 2012-4-6 11:35
把你自己的例子传上来

Henry D. Sy 版主，我希望是点击“选择显示项目”就可以"显示查询"，查询出来的内容可以总计。请帮忙，谢谢。请查看附件。

Henry D. Sy

表中数据多数是空值，统计什么呀

dlack

Henry D. Sy 发表于 2012-4-6 16:02
表中数据多数是空值，统计什么呀

主要是要统计数量，以后再增加统计复价金额的功能。更帮忙改改吗？

Henry D. Sy

dlack

Henry D. Sy 发表于 2012-4-6 16:25

  Henry D. Sy版主，非常感谢你的热心帮助，请问，附件图片中的相同的项能否在查询后，直接相加总计？谢谢你

Henry D. Sy

1. Private Sub cmdOK_Click()
   
2.     Dim strSQL As String
   
3.     Dim str As String
   
4.     Dim varI As Variant
   
5.     Dim Qdf As DAO.QueryDef
   
6.     Dim bln As Boolean
   
7. 
   
8.     '循环取出选中的字符串
   
9.     For Each varI In Me.List37.ItemsSelected
   
10.         If Me.List37.ItemData(varI) = "数量" Then
    
11.             bln = True
    
12.         Else
    
13.             str = str & Me.List37.ItemData(varI) & ","
    
14.         End If
    
15.     Next
    
16. 
    
17.     '有四种情况
    
18.     '***************************************
    
19. 
    
20.     '一：什么也没选
    
21.     If str = "" And bln = False Then
    
22.         MsgBox "请选择字段"
    
23.         Exit Sub
    
24.     End If
    
25. 
    
26.     '二：只选数量
    
27.     If str = "" And bln Then
    
28.         strSQL = "SELECT sum(数量) as 总数 FROM material "
    
29.     End If
    
30. 
    
31.     '三：只选分组字段
    
32.     If str <> "" And bln = False Then
    
33.         str = Left(str, Len(str) - 1)
    
34.         strSQL = "SELECT " & str & " FROM material group by " & str
    
35.     End If
    
36. 
    
37.     '四：选了数量和其他分组字段
    
38.     If str <> "" And bln Then
    
39.     str = Left(str, Len(str) - 1)
    
40.         strSQL = "SELECT " & str & ",sum(数量) as 总数 FROM material group by " & str
    
41.     End If
    
42. 
    
43.     '****************************************
    
44. 
    
45.     Set Qdf = CurrentDb.QueryDefs("MQ")
    
46.     Qdf.SQL = strSQL
    
47.     Me.FrmSub.SourceObject = "查询.MQ"
    
48.     Qdf.Close
    
49. 
    
50. End Sub
    

复制代码