主题：[求助]如何往自定义菜单LIST控件中增加数据

如何往自定义菜单LIST控件中增加数据？

如下是自定义的菜单LISTBOX

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.Listbox
a.Items.Add("地对地导弹")
a.Items.Add("xxxxxx")
'a.Text = "123456789"
a.Font = new font("宋体", 15)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("111").Groups("222").Items.Add(b)

程序运行后

我需要向这个控件增加多条数据！怎么办？

在代码后面写

vars("a") = a

-------------------------之后调用，就写

vars("a").Items.add("abcdefg")

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.Listbox
a.Items.Add("地对地导弹")
a.Items.Add("xxxxxx")
'a.Text = "123456789"
a.Font = new font("宋体", 15)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("Common").Groups("Data").Items.Add(b)
vars("a") = a

截图说明你的问题。

如果是说这个组合统计结果，可以 http://www.foxtable.com/webhelp/scr/2305.htm

Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("日期","月份")
b.Totals.AddDef("数量")
Tables("窗口1_Table1").DataSource = b.BuildDataSource()

就像这样

Tables("窗口1_Table2").DataSource = b.BuildDataSource()

于是

Table2与Table1共享查询结果