動態(tài)分類匯總

apsfxc1

感謝分享

Henry D. Sy

再增加一個動態(tà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

mikeyzq

牛人,學(xué)習(xí)一下,謝謝了!

conikua

好好學(xué)習(xí),爭取向上

tzh1600

代碼
好多不懂[:27] [:27]

小何

好東西一定要分享,謝謝樓豬

mikeyzq

小弟是原來的提問者，還想跟版主請教一下：
看了代碼，再查一下不懂的語句（我的ACCESS基本就是通過狗狗自學(xué)的，居然還能在公司里拿獎……），差不多就恍然大悟了，但是的確在應(yīng)用VBA方面太差了，版主能不能推薦本書講VBA較經(jīng)典的，通過學(xué)習(xí)此秘笈達到能寫出此段代碼的水平[:33] ，謝謝哈～

RRGG001

論壇活躍了不少支持

Henry D. Sy

按f1就是經(jīng)典中的經(jīng)典。