- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何提取某个表的列名到ComboBox1列表中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3778)
-- 发布时间：2009/8/1 18:02:00
-- 如何提取某个表的列名到ComboBox1列表中
求助如题
-- 发布时间：2009/8/1 18:28:00
--
看13楼代码
http://www.foxtable.com/dispbbs.asp?boardid=2&id=3694&page=&star=2
这上面是表名,列名代码请看下贴
[此贴子已经被作者于2009-8-1 18:33:02编辑过]
-- 发布时间：2009/8/1 18:33:00
--
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
-- 发布时间：2009/8/1 20:07:00
--
我也学一个
Dim s As String
For Each dc As DataCol In DataTables("表名").DataCols
s = s & "|" & dc.name
e.Form.Controls("ComboBox").ComboList = s
Next
-- 发布时间：2009/8/2 9:33:00
--
谢谢，谢谢各位专家的解答
-- 发布时间：2009/8/2 12:30:00
--
以下是引用czy在2009-8-1 20:07:00的发言：
我也学一个
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
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被反复设置，影响效率。
-- 发布时间：2009/8/2 12:33:00
--
以下是引用狐狸爸爸在2009-8-2 12:30:00的发言：
应该这样：
Dim s As String
For Each dc As DataCol In DataTables("表名").DataCols
s = s & "|" & dc.name
Next
e.Form.Controls("ComboBox").ComboList = s
否则ComboBox被反复设置，影响效率。
收到，谢了！
-- 发布时间：2009/8/2 14:40:00
--
了不起