主题：获取列的集合作为("ComboBox1").ComboList的值

想要获取列的集合到e.Form.Controls("ComboBox1").ComboList的值

如下图：

此主题相关图片如下：微信截图_20161201210033.png

我自己用遍历列名的方法，只会得到最后一列。显然是不对的，但是又要怎么做呢？ 

For Each c As Col In Tables("零售报表_table1").Cols
If c.name <> "年份"  Or c.name <> "季度"  Or c.name <> "月份"  Or c.name <> "周次"  Or c.name <> "日"  Or c.name <> "时"  Or c.name <> "门店"  Then
e.Form.Controls("ComboBox1").ComboList = c.name
End If

Next

列是随用户的打钩选择：

嗯嗯，谢谢有点蓝老师，我这样实现了：

Dim s As String = Forms("零售报表").Controls("CheckedComboBox5").value
s = s.Replace(",","|") '将123替换为789

Dim cmb As WinForm.ComboBox
cmb = e.form.Controls("ComboBox1")
cmb.ComboList = s