以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请老师办我看看错误出在哪  (http://foxtable.net/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
--  

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