主题：[求助]动态列表项目

此主题相关图片如下：qq图片20161118151523.png

这是个动态列表项目

表 列 也是列表项目

代码

    Dim lst As List(Of String)
    lst = Connections("SQL").GetTableNames
    Dim s As String
    For Each t As String In lst
        s = s & "|" & t
    Next
    Tables("项目").Cols("表").Combolist = s
 
如何  列 这一列

也能根据表名称 自动获取相应的列明 变成下拉列表