主题：求按月统计代码

想在表A窗口中按月统计型号的数量，不想用临时表。请帮帮忙。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

用交叉统计呀。

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"), "[日期] Is Not Null")
g.HGroups.AddDef("型号")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("数量", "数量")
g.Filter = "[日期] Is Not Null"
g.TableVisible = False
Tables("窗口1_Table1").DataSource = g.BuildDataSource

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:按月统计代码.table

我想在窗口建立控件对型号进行筛选查询，不知道统计表1怎么引用

在窗口新增一个Table控件。
按钮代码
然后自己试试就知道了。

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"), "[日期] Is Not Null")
g.HGroups.AddDef("型号")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("数量", "数量")
g.Filter = "[日期] Is Not Null"
g.TableVisible = False
Tables("窗口1_Table3").DataSource = g.BuildDataSource

窗口统计表下拉列表代码“统计表1”怎么表示

Dim Filter As String
With e.Form.Controls("型号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "型号 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("统计表1").Filter = Filter
End If

窗口中的Table怎么引用帮助中有说明，看来你还得好好学习。

Tables("窗口名称_Table控件名称").Filter = Filter