主题：根据登陆用户动态设置ComboBox列表

请教各位高手，

如何实现根据登陆用户动态设置ComboBox列表，例如：以张三（密码 888 ）登陆后，下拉列表只显示张三的项目

此主题相关图片如下：snip20140511_60.png

不知道在下面的代码如何增加？
 

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("项目")

附件参考下面

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态筛选.foxdb