专家坐堂-[求助]请老师办我看看错误出在哪Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请老师办我看看错误出在哪  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17654)

--  作者：yrjc5
--  发布时间：2012/3/20 16:46:00
--  [求助]请老师办我看看错误出在哪

Dim qssj As Date = e.Form.Controls("起始时间").Value
    Dim jssj As Date = e.Form.Controls("结束时间").Value
    Dim g As New SQLGroupTableBuilder("统计表2", "出库明细")

    Dim dt1 As fxDataSource


    g.Groups.AddExp("年", "Year(财务日期)")
    g.Groups.AddDef("财务日期","月")
    g.Groups.AddDef("出库单编号")
    g.Groups.AddDef("商品代码")
    g.Totals.AddDef("数量")
    g.Totals.AddExp("金额","数量*促销价")
    g.Filter = "{出库明细}.财务日期 >= #" & qssj & "# And {出库明细}.财务日期 <= #" & jssj & "#"
    g.FromServer = True
    dt1 = g.BuildDataSource()
    Tables("销售分析_Table1").DataSource = dt1

请老师教教我到底错在哪，为什么总报 ‘#’有错误

此主题相关图片如下：2012-03-20_16-42-18.png

[此贴子已经被作者于2012-3-20 16:52:59编辑过]

--  作者：狐狸爸爸
--  发布时间：2012/3/20 17:41:00
--

肯定是生成的表达式有误，这么测试一下看看：

Dim qssj As Date = e.Form.Controls("起始时间").Value
Dim jssj As Date = e.Form.Controls("结束时间").Value
Dim g As New SQLGroupTableBuilder("统计表2", "出库明细")

Dim dt1 As fxDataSource

g.Groups.AddExp("年", "Year(财务日期)")
g.Groups.AddDef("财务日期","月")
g.Groups.AddDef("出库单编号")
g.Groups.AddDef("商品代码")
g.Totals.AddDef("数量")
g.Totals.AddExp("金额","数量*促销价")
g.Filter = "{出库明细}.财务日期 >= #" & qssj & "# And {出库明细}.财务日期 <= #" & jssj & "#"

Messagebox.Show(g.Filter)
g.FromServer = True
dt1 = g.BuildDataSource()
Tables("销售分析_Table1").DataSource = dt1

此外，如果你的数据源是SQL Server，记得日期用单引号括起来，而不是#

--  作者：yrjc5
--  发布时间：2012/3/24 13:11:00
--

谢谢，问题解决，确实是\' \' 的问题