动态分类汇总

Henry D. Sy

再增加一个动态生成行来源

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

牛人,学习一下,谢谢了!

conikua

好好学习,争取向上

tzh1600

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

小何

好东西一定要分享,谢谢楼猪

mikeyzq

小弟是原来的提问者，还想跟版主请教一下：
看了代码，再查一下不懂的语句（我的ACCESS基本就是通过狗狗自学的，居然还能在公司里拿奖……），差不多就恍然大悟了，但是的确在应用VBA方面太差了，版主能不能推荐本书讲VBA较经典的，通过学习此秘笈达到能写出此段代码的水平[:33] ，谢谢哈～

RRGG001

论坛活跃了不少支持

Henry D. Sy

按f1就是经典中的经典。

changweiren

6D的代码经典必须下载收藏学习