老师：你好！
一下代码在内部数据源能否执行并完成组合统计，但在外部数据源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
加好友 
发短信
Post By：2015/2/6 13:20:00 [只看该作者]
