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

 代码写到afterload事件

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("项目", "姓名 = '" & user.name & "'")

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

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