共4 条记录, 每页显示 10 条, 页签: [1]

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

1楼

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

2楼

狐狸爸爸 发表于：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

3楼

blackzhu 发表于：2011/5/5 9:58:00

Dim s As String

For Each cl As col In cols

s = s & "|" & cl.Name

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

试试这个?

4楼

狐狸爸爸 发表于：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

共4 条记录, 每页显示 10 条, 页签: [1]