動(dòng)態(tài)分類匯總

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 "請(qǐng)選擇分組項(xiàng)目"
    
17.         Exit Sub
    
18.     ElseIf strSum = "" Then
    
19.         MsgBox "請(qǐng)選擇統(tǒng)計(jì)項(xiàng)目"
    
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

復(fù)制代碼

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

增加一個(gè)動(dòng)態(tài)生成行來(lái)源

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

謝謝分享, 下載先

明鏡

學(xué)習(xí)一下

sunwrsun

加為好友

lym321321

學(xué)習(xí)學(xué)習(xí)

wu8313

ddddddddddd

ui

謝謝版主無(wú)私的分享. 頂!!

82077802

謝謝分享

WDLRCZT

謝謝分享,收藏了

apsfxc1

感謝分享