以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据登陆用户动态设置ComboBox列表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50704)
--  作者：ibehujun
--  发布时间：2014/5/11 19:14:00
--  根据登陆用户动态设置ComboBox列表

请教各位高手，

 

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

 


此主题相关图片如下：snip20140511_60.png
按此在新窗口浏览图片

 

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

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

 

附件参考下面

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:动态筛选.foxdb

[此贴子已经被作者于2014-5-11 19:15:11编辑过]
--  作者：hws005
--  发布时间：2014/5/11 19:23:00
--  
在后面加上条件筛选,弄两个组合控件
第一个在Enter事件
Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("姓名")
第二个在Enter事件
Dim GYS As WinForm.ComboBox = e.Form.Controls("ComboBox1")    
e.Sender.ComboList = Tables("表A").DataTable.sqlGetComboListString("项目", "姓名 = \'" & gys.Value & "\'")
然后在TextChanged
Dim GYS As WinForm.ComboBox = e.Form.Controls("ComboBox1")   
Dim GYSs As WinForm.ComboBox = e.Form.Controls("ComboBox2")  
Tables("表A").Filter =  "姓名 = \'" & gys.value & "\' And 项目 = \'" & gyss.value & "\'"

没看清楚，呵呵，楼主，可以弄一个变量记住登陆名保存到全局变量里Public _UserName As String 
然后 引用加载，就不这去选了

[此贴子已经被作者于2014-5-11 20:12:43编辑过]
--  作者：有点甜
--  发布时间：2014/5/11 20:15:00
--  

 代码写到afterload事件

 

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

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态筛选.foxdb
--  作者：ibehujun
--  发布时间：2014/5/11 20:43:00
--  

多谢hws005，甜兄，已经解决了。

 

To 狐爸

甜兄的代码应该加入帮助手册啊，有个知识点手册中没有。

 

GetComboListString（字段，筛选条件）

 

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("项目", "姓名 = \'" & user.name & "\'")
--  作者：lsy
--  发布时间：2014/5/12 6:30:00
--  
以下是引用ibehujun在2014-5-11 20:43:00的发言：

多谢hws005，甜兄，已经解决了。

 

To 狐爸

甜兄的代码应该加入帮助手册啊，有个知识点手册中没有。

 

GetComboListString（字段，筛选条件）

 

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

代码提示里有。