主题：[求助]目录树

With Tables(e.Form.Name & "_Table5")

    .EnterKeyActionDown = True

    .AutoSizeCols

    Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("筛选1")

    For Each C As Col In .Cols

        dz_FilterCol.Items.Add(C.Name)

    Next

    dz_FilterCol.Value = "第一列,第二列"

End With