以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求救：时间列格式为20140-08-07 16：54格式的 想筛选今日数据 代码怎么写？我写的代码无法进行筛选，求纠正！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53463)
--  作者：李孝春
--  发布时间：2014/7/8 15:34:00
--  求救：时间列格式为20140-08-07 16：54格式的 想筛选今日数据 代码怎么写？我写的代码无法进行筛选，求纠正！
求救：时间列格式为20140-08-07 16：54格式的 想筛选今日数据 代码怎么写？我写的代码无法进行筛选，求纠正！

图片点击可在新窗口打开查看此主题相关图片如下：211.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：222.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：233.jpg
图片点击可在新窗口打开查看
代码如下：
Dim xxl As WinForm.TopicBar = Forms("主窗体").Controls("TopicBar1")
Dim kg1 As String = "------"
Dim jy As WinForm.TopicPage =xxl.Pages("今日信息")
jy.Links(0).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 = #" & Date.Today & "#") & "】元"
jy.Links(1).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 = #" & Date.Today & "#") & "】人"
jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 = #" & Date.Today & "#") & "】人"
Dim jy1 As WinForm.TopicPage =xxl.Pages("历史信息")
jy1.Links(0).Text = "历史营业金额【" & DataTables("消费明细").Compute("sum(累计消费)") & "】元"
jy1.Links(2).Text = "历史结账金额【" & DataTables("结账登记").Compute("sum(消费金额)") & "】元"
jy1.Links(1).Text = "历史就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)") & "】人"

今日数据不显示  历史数据能够正常显示
--  作者：Bin
--  发布时间：2014/7/8 15:36:00
--  
"消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= " & Date.Today & " 23:59:59#"
--  作者：李孝春
--  发布时间：2014/7/8 15:48:00
--  回复：（Bin）"消费时间 >= #" & Date.Today &...
BIN老师 运行后出现如下提示错误

图片点击可在新窗口打开查看此主题相关图片如下：244.jpg
图片点击可在新窗口打开查看
Dim xxl As WinForm.TopicBar = Forms("主窗体").Controls("TopicBar1")
Dim kg1 As String = "------"
Dim jy As WinForm.TopicPage =xxl.Pages("今日信息")
jy.Links(0).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= " & Date.Today & " 23:59:59#") & "】元"
jy.Links(1).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00#  and 就餐时间<= " & Date.Today & " 23:59:59#") & "】人"
jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00#  and 结账时间<= " & Date.Today & " 23:59:59#") & "】人"
Dim jy1 As WinForm.TopicPage =xxl.Pages("历史信息")
jy1.Links(0).Text = "历史营业金额【" & DataTables("消费明细").Compute("sum(累计消费)") & "】元"
jy1.Links(1).Text = "历史就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)") & "】人"
jy1.Links(2).Text = "历史结账金额【" & DataTables("结账登记").Compute("sum(消费金额)") & "】元"
Dim A As Integer = DataTables("消费明细").Compute("sum(累计消费)")
Dim b As Integer = DataTables("结账登记").Compute("sum(消费金额)")
Dim c As Integer
 c = a-b
jy1.Links(3).Text = "尚未结账金额【" & c & "】元"
[此贴子已经被作者于2014-7-8 15:48:35编辑过]
--  作者：有点甜
--  发布时间：2014/7/8 15:53:00
--  
jy.Links(0).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= #" & Date.Today & " 23:59:59#") & "】元"
jy.Links(1).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00#  and 就餐时间<= #" & Date.Today & " 23:59:59#") & "】人"
jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00#  and 结账时间<= #" & Date.Today & " 23:59:59#") & "】人"
--  作者：Bin
--  发布时间：2014/7/8 15:53:00
--  
少了个#号  "消费时间 >= #" & Date.Today & " 00:00:00#  and 消费时间<= #" & Date.Today & " 23:59:59#"
--  作者：李孝春
--  发布时间：2014/7/8 16:07:00
--  回复：（Bin）少了个#号  "消费时间 >= #" &a...
我太马虎了 BIN老师 再次感谢