动态分类汇总

Henry D. Sy

1. Private Sub Command6_Click()
   
2. 
   
3.     Dim Qdf As DAO.QueryDef
   
4.     Dim varI As Variant
   
5.     Dim strGrp As String, strSum As String
   
6.     Dim strSQL As String, strGrpFldName As String
   
7. 
   
8.     For Each varI In Me.List0.ItemsSelected
   
9.         strGrp = strGrp & Me.List0.ItemData(varI) & ","
   
10.     Next
    
11.     For Each varI In Me.List2.ItemsSelected
    
12.         strSum = strSum & "Sum(" & Me.List2.ItemData(varI) & ") As 总" & _
    
13.                  Me.List2.ItemData(varI) & ","
    
14.     Next
    
15.     If strGrp = "" Then
    
16.         MsgBox "请选择分组项目"
    
17.         Exit Sub
    
18.     ElseIf strSum = "" Then
    
19.         MsgBox "请选择统计项目"
    
20.         Exit Sub
    
21.     End If
    
22.     Set Qdf = CurrentDb.QueryDefs("B")
    
23.     strSum = Left(strSum, Len(strSum) - 1)
    
24.     strGrpFldName = Left(strGrp, Len(strGrp) - 1)
    
25.     strSQL = "select " & strGrp & strSum & " from a group by " & strGrpFldName
    
26.     Qdf.SQL = strSQL
    
27.     Me.Child4.SourceObject = "查询.b"
    
28.     Qdf.Close
    
29.     Set Qdf = Nothing
    
30. End Sub

复制代码

游客，如果您要查看本帖隐藏内容请回复

增加一个动态生成行来源

Private Sub Form_Load()

    Dim rs As New ADODB.Recordset
    Dim strListTRowSource As String
    Dim strListDRowSource As String
    Dim i As Integer
   
    With rs
        .Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        For i = 0 To .Fields.Count - 1
            If .Fields(i).Type = 202 Then
                strListTRowSource = strListTRowSource & .Fields(i).Name & ";"
            ElseIf .Fields(i).Type = 3 Then
                strListDRowSource = strListDRowSource & .Fields(i).Name & ";"
            End If
        Next
        Me.List0.RowSourceType = "Value List"
        Me.List2.RowSourceType = "Value List"
        Me.List0.RowSource = strListTRowSource
        Me.List2.RowSource = strListDRowSource
        .Close
    End With
    Set rs = Nothing
End Sub

[ 本帖最后由 Henry D. Sy 于 2008-12-29 03:52 编辑 ]

tmtony

谢谢分享, 下载先

明镜

学习一下

sunwrsun

加为好友

lym321321

学习学习

wu8313

ddddddddddd

ui

谢谢版主无私的分享. 顶!!

82077802

谢谢分享

WDLRCZT

谢谢分享,收藏了

apsfxc1

感谢分享