用系统自带的例子::::::自建立数据源名:tst 。
全局变量日期型为Date ,Access中日期类型为 日期/时间 ,下面代码提示 『标准表达式中数据类型不匹配』:
Vars("StartDate") = #1/1/1999#
Vars("EndDate") = #1/31/1999#
Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.
Connection Name = "tst" ’Connection Name 中间空格没有的。
b.Filter = "[日期] >= '" & Vars("StartDate") & "' And [日期] <= '" & Vars("EndDate") & "'"
b.Groups.AddDef("产品ID") '根据产品名称分组
b.Groups.AddDef("日期", DateGroupEnum.Year, "年") '根据日期按年分组
b.Totals.AddDef("数量") '对数量进行统计
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表
帮看看是不是数据类型的问题。
[此贴子已经被作者于2010-3-11 18:55:18编辑过]