Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
各位老师,有一项目,要求在切换用户时,将ComboBox控件内的原有内容清除掉,代码应该如何写,请各位老师给予指教,谢谢!!
补充说明:代码要求放在自定义用户管理的用户登录的确定按钮里!!
用LoadUserSetting事件:
if forms("xxx").Opened Then
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cmb.ComboList = ""
end if
自己解决了,在确定按钮中加了以下代码,达到效果。还是要谢谢狐爸老师的指导,但是觉得在切换用户时,LoadUserSetting事件里面的代码好像不起作用,因为我的项目在LoadUserSetting事件中有隐藏功能区的代码,如果用开发用户组打开项目,再切换其他用户时,不能隐藏相关功能区,这可能与使用自定义用户管理有关?再次谢谢狐爸老师。
Dim ls1 As WinForm.ComboBox
Ls1 = Forms("数据载入").Controls("ComboBox1")
ls1.Value = "请选择年月"