- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 菜单添加中出现的新问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49180)
-- 发布时间：2014/4/13 17:30:00
-- 菜单添加中出现的新问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:菜单设计.rar |
此主题相关图片如下：2.jpg
1、想在 单位代码 框右边有个下拉菜单，菜单的内容 来自数据字典中的 代码，如果不能做下拉菜单就用输入的方法
2、想在 单位名称 框右边有个下拉菜单，菜单的内容 来自数据字典中的 代码，每个单位都有对应的区域，能用目录树的方式选择 区域-单位 ，最好
3、单位代码 和单位 名称只要有一个输入，另一个根据数据字典的对应关系 自动确定
4、选择结束后，根据选取的内容，填充到【当前单位】表的第一行里
5、实在不能完成就做到第1条和第4条
-- 发布时间：2014/4/13 19:38:00
--
呃，楼主，你把菜单的实践演练看一下，看看是否有什么启示。
看完先自己做一下，遇到问题再提问 http://www.foxtable.com/help/topics/1131.htm
-- 发布时间：2014/4/14 0:55:00
--
没有办法借用其中的代码，说明书这部分说得比较简略，能麻烦帮我做下吗？
-- 发布时间：2014/4/14 8:26:00
--
帮助解释得挺详细的了,你感觉简略或者看不懂,说明你没有按部就班看帮助,而是直接跳到这一章节来看.
-- 发布时间：2014/4/14 8:39:00
--
建议你按部就班看一下帮助吧
-- 发布时间：2014/4/14 16:46:00
--
谢谢Bin，本人初学，看代码很艰难，大体一知半解，以模仿为主，根据老师的指点，做了出来了，上传一下，不过还有部分实在太难，找不到其对应的组件了，还请老师抽空指导一下，
未完成的目标写在【表3】里：
1、想在选择单位代码后，单位名称组合框内自动出现对应的单位名，反之亦然
2、选择单位名称时最好有目录树的样式，便于选择
再次衷心感谢 bin 和有点甜的悉心指导！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:菜单设计.rar |
-- 发布时间：2014/4/14 17:00:00
--
不愿意按部就班学习,就算帮你写完了项目,下个项目还是得我帮你写.
-- 发布时间：2014/4/14 17:02:00
--
第一个问题这样写
Dim dr As DataRow = DataTables("数据字典").Find("单位代码=\'" & e.ComboBox.Text & "\'")
If dr IsNot Nothing Then
Dim r As Row = Tables("当前单位").Current
r("区域")=dr("区域")
r("单位名称")=dr("单位名称")
r("单位代码")=dr("单位代码")
Dim mc As RibbonMenu.ComboBox = RibbonTabs("更改单位").Groups("单位名称或代码").Items("单位名称")
mc.Text = dr("单位名称")
End If
第二个问题，菜单那里无法使用目录树。
-- 发布时间：2014/4/14 18:08:00
--
十分感谢！
Dim mc As RibbonMenu.ComboBox = RibbonTabs("更改单位").Groups("单位名称或代码").Items("单位名称")
知道这样的写法，但组件运用得不对，把 RibbonMenu.ComboBox 写成了 String