多谢hws005，甜兄，已经解决了。
To 狐爸
甜兄的代码应该加入帮助手册啊，有个知识点手册中没有。
GetComboListString（字段，筛选条件）
Dim cmb As WinForm.ComboBoxcmb = Forms("窗口1").Controls("ComboBox1")cmb.ComboList = DataTables("表A").GetComboListString("项目", "姓名 = '" & user.name & "'")
代码提示里有。
加好友 
发短信
Post By：2014/5/12 6:30:00 [显示全部帖子]
