- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64175)
-- 发布时间：2015/2/6 13:20:00
-- 代码错误
老师：你好！
一下代码在内部数据源能否执行并完成组合统计，但在外部数据源SQL server 2008中出现：生产的SQL语句错误，无法继续统计提示！
请帮助查找并修改一下错误。日期的#，已替换成\'。
With e.Form.Controls("日期")
If .Value Is Nothing Then
Return
End If
End With
Tables("统计分析_Table1").StopRedraw
Dim Filter As String
Dim curD As Date=e.Form.Controls("日期").Value \'当前日期
Dim lastD As Date = curD.AddMonths(-1) \'上一个月的日期
Dim lastD2 As New Date(lastD.Year, lastD.Month, Date.DaysInMonth(lastD.Year,lastD.Month)) \'上个月的最后一天
Filter = Filter & "日期 > \'" & lastD2 & "\'" & " And 日期 <= \'" & curD & "\'"
Dim bd1 As New SQLGroupTableBuilder("统计表1","入库明细")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("存货二类") \'根据型号分组
bd1.Totals.AddDef("入库数量","入库数量") \'对数量进行统计
bd1.Totals.AddDef("入库金额","入库金额") \'对金额进行统计
bd1.Filter = Filter
dt1 = bd1.BuildDataSource()
Dim bd2 As New SQLGroupTableBuilder("统计表2","出库明细")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("存货二类") \'根据型号分组
bd2.Totals.AddDef("出库数量","出库数量") \'对数量进行统计
bd2.Totals.AddDef("出库金额","出库金额") \'对金额进行统计
bd2.Filter = Filter
dt2 = bd2.BuildDataSource()
dt1.Combine("存货二类",dt2,"存货二类") \'将销售统计数据组合到进货统计数据
Tables("统计分析_Table1").DataSource = dt1 \'将统计结果绑定到Table
-- 发布时间：2015/2/6 13:23:00
--
没有全部发出，附件发送
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码错误.txt |
-- 发布时间：2015/2/6 14:01:00
--
出现什么问题?
-- 发布时间：2015/2/6 14:17:00
--
请认真看完SQLGroupTableBuilder的语法啊，不能这样用的。
http://www.foxtable.com/help/topics/1626.htm