主题：如何提取某个表的列名到ComboBox1列表中

求助如题

看13楼代码
http://www.foxtable.com/dispbbs.asp?boardid=2&id=3694&page=&star=2
这上面是表名,列名代码请看下贴

For Each cl As Col In CurrentTable.Cols
dim Tex As String
    Tex= Tex & "|" & cl.name
Dim com7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
com7.ComboList = Tex
Next

我也学一个

Dim s As String
For Each dc As DataCol In DataTables("表名").DataCols
    s = s & "|" & dc.name
    e.Form.Controls("ComboBox").ComboList = s
Next

谢谢，谢谢各位专家的解答

应该这样：

Dim s As String
For Each dc As DataCol In DataTables("表名").DataCols
    s = s & "|" & dc.name
Next
e.Form.Controls("ComboBox").ComboList = s

否则ComboBox被反复设置，影响效率。

收到，谢了！

了不起