以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么修改系统菜单?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65440)

--  作者:狂风暴雨狂波
--  发布时间:2015/3/16 14:29:00
--  怎么修改系统菜单?
最后修改菜单中的"用户管理"和"切换用户"按钮的代码,启用"用户管理"按钮的代码为:

Forms("用户管理").Open()

"切换用户"按钮的代码为:

Forms("用户登录").Open()

你可以先应用系统菜单“system.ribbon”,然后再修改。怎么修改系统菜单?我一修改就变成了用户菜单


--  作者:Bin
--  发布时间:2015/3/16 14:30:00
--  
导入系统菜单模版,基于这个模版生成的用户菜单,就和系统菜单一样的.修改它即可
--  作者:狂风暴雨狂波
--  发布时间:2015/3/16 15:02:00
--  
导入后运行报错:Items collection cannot be modified when the DataSource property is set.
--  作者:有点甜
--  发布时间:2015/3/16 15:05:00
--  

 呃,导入模板,是不会报你3楼那个错的。

 

 怎么操作报错?


--  作者:狂风暴雨狂波
--  发布时间:2015/3/16 15:13:00
--  

 

导入后按帮助修改了两个按钮的代码

[此贴子已经被作者于2015/3/16 15:14:48编辑过]

--  作者:狂风暴雨狂波
--  发布时间:2015/3/16 15:20:00
--  

.NET Framework 版本:2.0.50727.3053
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,用户登录,AfterLoad
详细错误信息:
Items collection cannot be modified when the DataSource property is set.


--  作者:狂风暴雨狂波
--  发布时间:2015/3/16 15:22:00
--  
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C

--  作者:狂风暴雨狂波
--  发布时间:2015/3/16 15:23:00
--  
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
--  作者:Bin
--  发布时间:2015/3/16 15:27:00
--  
你要干什么,上例子吧
--  作者:有点甜
--  发布时间:2015/3/16 15:39:00
--  

加一个判断

 

dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next

If dt.DataRows.Count > 0 Then
    cmb.SelectedIndex = 0

End If