以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想把表里面的列全部填加到列表中，怎么就只能颠上最后一个列名呢！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9727)
--  作者：dd-zdh
--  发布时间：2011/5/5 9:21:00
--  想把表里面的列全部填加到列表中，怎么就只能颠上最后一个列名呢！

想把表里面的列全部填加到列表中，怎么就只能颠上最后一个列名呢！

 

For Each c As Col In Tables("表A").Cols
    \'CheckedListBox1.  c.Name
    \'ListBox1.  c.Name
    e.Form.Controls("ComboBox1").text=c.name

    \'forms("窗口1").Controls("ListBox1").value=c.name
Next
--  作者：狐狸爸爸
--  发布时间：2011/5/5 9:57:00
--  

Dim s AS string

For Each c As Col In Tables("表A").Cols

   s = s & "|" & c.name
Next

e.Form.Controls("ComboBox1").text=s
--  作者：blackzhu
--  发布时间：2011/5/5 9:58:00
--  
Dim s As String

For Each cl As col In cols

    s = s & "|" & cl.Name

Next

e.Form.Controls("ComboBox1").text=s

试试这个?
--  作者：狐狸爸爸
--  发布时间：2011/5/5 10:03:00
--  

我前面错了，应该这样：

 

Dim s AS string

For Each c As Col In Tables("表A").Cols

    s = s & "|" & c.name
Next

e.Form.Controls("ComboBox1").ComboList=s