Foxtable(狐表)用户栏目专家坐堂 → 麻烦各位高手在菜单中应用应该怎么改


  共有10610人关注过本帖树形打印复制链接

主题:麻烦各位高手在菜单中应用应该怎么改

美女呀,离线,留言给我吧!
bm
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
麻烦各位高手在菜单中应用应该怎么改  发帖心情 Post By:2012/1/9 20:02:00 [只看该作者]

Dim cmb As RibbonMenu.ComboBox = RibbonTabs("我的工作")("日期")("工具栏2")("组合框1")
cmb.ComboList = DataTables("业务大表").GetComboListString("客户")

 回到顶部
美女呀,离线,留言给我吧!
bm
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
自己顶一下。  发帖心情 Post By:2012/1/9 22:03:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
bm
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
说明一下。  发帖心情 Post By:2012/1/9 22:28:00 [只看该作者]

就是要切换到“业务大表”时候。RibbonTabs("我的工作")("日期")("工具栏2")("组合框1")

的下拉列表=“业务大表”的 “客户”例


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/1/10 1:29:00 [只看该作者]

Dim Values() As String = DataTables("业务大表").GetComboListString("客户").split("|")
With RibbonTabs("我的工作")("日期")("工具栏2")("组合框1")
    .Items.Clear
    For i As Integer = 0 To Values.Length - 1
        Dim b As New RibbonMenu.Button(Values(i))
        b.Text = Values(i)
        .Items.Add(b)
    Next
End With

 回到顶部
美女呀,离线,留言给我吧!
bm
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
谢谢C版主  发帖心情 Post By:2012/1/10 10:12:00 [只看该作者]

谢谢C版主图片点击可在新窗口打开查看

 回到顶部