主题：如何把表的所有字段名加入到某comlist控件中

 我测试了一下，如果打开窗口以后，这个控件首先获得焦点的话，就会激发enter事件两次，如果不是，鼠标点击获得焦点的话，就只会激发一次。

 解决代码。

For Each c As col In Tables("表A").cols
    If e.Sender.Items.Contains(c.name) = False Then
        e.sender.items.Insert(0,c.name)
    End If
Next