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

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

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