如何做到提取控件级的列表呢?
這個???
Dim CTE As ControlTypeEnum '控件枚举
' ADOXType '字段枚举
' AggregateEnum ' '统计类型枚举
' DateTimeFormatEnum '日期枚举
'......
Dim i As Integer
Dim s2 As String
For Each s1 As String In [Enum].GetNames(CTE.Gettype)
s2 = Format(Val([Enum].GetValues(CTE.Gettype)(i)),"[000] ") '枚举数字代码
s2 = s2 & s1
output.show(s2)
i=i+1
Next