- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求按月统计代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5799)
-- 发布时间：2010/1/16 15:24:00
-- 求按月统计代码
想在表A窗口中按月统计型号的数量，不想用临时表。请帮帮忙。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
[此贴子已经被作者于2010-1-16 15:25:05编辑过]
-- 发布时间：2010/1/16 15:53:00
--
用交叉统计呀。
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
-- 发布时间：2010/1/16 16:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:按月统计代码.table |
-- 发布时间：2010/1/16 16:31:00
--
我想在窗口建立控件对型号进行筛选查询，不知道统计表1怎么引用
-- 发布时间：2010/1/16 16:45:00
--
在窗口新增一个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
-- 发布时间：2010/1/16 17:01:00
--
窗口统计表下拉列表代码“统计表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
-- 发布时间：2010/1/16 18:58:00
--
窗口中的Table怎么引用帮助中有说明，看来你还得好好学习。
Tables("窗口名称_Table控件名称").Filter = Filter