主题：菜单里的组合框的下拉列表如何做

我再追问一下吧

我窗体中的“统计”按钮里的代码我写好了 但没有用到菜单里年月份的值来做筛选，能帮我稍稍改一下吗？

主要是加个筛选条件，注释请无视，我复制帮助里的

以下是源代码：

----------------------------------------------------------------------------------------

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("每月订单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("车型") '根据型号分组
bd1.Totals.AddDef("数量","计划") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("每日产量"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("车型") '根据型号分组
bd2.Totals.AddDef("数量","完成") '对数量进行统计
dt2 = bd2.BuildDataSource()

--------------------------------------------------------------------------------------

Dim y As String = RibbonTabs("功能区1").Groups("功能组1").Items("年份").Text
Dim m As String = RibbonTabs("功能区1").Groups("功能组1").Items("月份").Text
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("每月订单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("车型") '根据型号分组
bd1.Totals.AddDef("数量","计划") '对数量进行统计
bd1.Filter = "订单年份 = '" & y & "' and 订单月份 = '" & m & "'"

dt1 = bd1.BuildDataSource()

……

再次感谢！这下这个功能就完善了！

再提个问题吧

bd1.Groups.AddDef("车型") '根据型号分组
bd1.Totals.AddDef("数量","计划") '对数量进行统计
dt1 = bd1.BuildDataSource()

以上代码是对车型做分组统计，我想再加一个颜色的分组

加了bd1.Groups.AddDef("颜色")

但最后提示“已添加了具有相同键的项”的错误

我估计是下面这个代码有问题：

dt1.Combine("车型",dt2,"车型") '将销售统计数据组合到进货统计数据
但我不会改

能帮忙改一下吗

1、不同的问题，请分别发帖提问

2、最好用简单的例子说话