菜单里的组合框的下拉列表如何做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:统计.rar

此主题相关图片如下：希望实现的功能.jpg

感谢二位回复

这几个帮助页面我周末都看了N遍了，但不会学以致用啊

菜单的列表项目和窗体的列表项目设置方法不一样吧

感谢CZY的代码年份可以下拉选择了这个代码我想破脑袋也写不出的

能顺便帮我把月份的代码写了不？（要能和年份联动的，2012年只录入到8月份，就只能下拉显示到8月份）

以下是引用czy在2012-8-20 13:21:00的发言：

菜单年份TextChanged事件

If e.ComboBox.Text <> "" Then
    With RibbonTabs("功能区1").Groups("功能组1").Items("月份")
        .Items.Clear
        Dim Values() As String = DataTables("每日产量").GetComboListString("产量月份","产量年份 = '" & e.ComboBox.Text & "'").split("|")
        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
End If

太帅了！

我再追问一下吧

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

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

以下是源代码：

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

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()

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

Tables("产量统计_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("产量统计_Table1").DataCols '用表达式列计算库存数据
.Add("未完成",Gettype(Integer), "IsNull([计划],0) - ISNULL([完成],0)")

End With

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

[此贴子已经被作者于2012-8-20 14:11:18编辑过]

以下是引用czy在2012-8-20 14:24:00的发言：

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,"车型") '将销售统计数据组合到进货统计数据
但我不会改

能帮忙改一下吗

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