- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 麻烦各位高手在菜单中应用应该怎么改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15740)
-- 发布时间：2012/1/9 20:02:00
-- 麻烦各位高手在菜单中应用应该怎么改
Dim cmb As RibbonMenu.ComboBox = RibbonTabs("我的工作")("日期")("工具栏2")("组合框1")
cmb.ComboList = DataTables("业务大表").GetComboListString("客户")
-- 发布时间：2012/1/9 22:03:00
-- 自己顶一下。
-- 发布时间：2012/1/9 22:28:00
-- 说明一下。
就是要切换到“业务大表”时候。RibbonTabs("我的工作")("日期")("工具栏2")("组合框1")
的下拉列表=“业务大表”的 “客户”例
-- 发布时间：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
-- 发布时间：2012/1/10 10:12:00
-- 谢谢C版主
谢谢C版主
