Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("客户").GetComboListString("公司名称")
　

上述的代码如果设置在窗口的AfterLoad事件中，即可在打开窗口的时候，自动从客户表提取公司名称，作为组合框Combox1的列表项目。

老师，这个代码如何修改能达到效果：CMB列表框能增加显示客户表中的其他列，如电话、联系人等。但最终选择后是以公司名称填入CMB框内的。也不就是说在做选择时要求同时能看见客户表的其他列内容。