以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  麻烦各位高手在菜单中应用应该怎么改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15740)

--  作者:bm
--  发布时间:2012/1/9 20:02:00
--  麻烦各位高手在菜单中应用应该怎么改
Dim cmb As RibbonMenu.ComboBox = RibbonTabs("我的工作")("日期")("工具栏2")("组合框1")
cmb.ComboList = DataTables("业务大表").GetComboListString("客户")

--  作者:bm
--  发布时间:2012/1/9 22:03:00
--  自己顶一下。
图片点击可在新窗口打开查看
--  作者:bm
--  发布时间:2012/1/9 22:28:00
--  说明一下。

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

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


--  作者:czy
--  发布时间: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
--  发布时间:2012/1/10 10:12:00
--  谢谢C版主
谢谢C版主图片点击可在新窗口打开查看