去掉 列属性 设置的值,然后用代码
Dim ts As String = ""For Each t As Table In Tables ts &= t.Name & "|"NextTables("授权表").Cols("表名").ComboList = ts.TrimEnd("|")