以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TopicBar统计请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72693)
--  作者：douglas738888
--  发布时间：2015/8/4 17:35:00
--  TopicBar统计请教
请教老师，在TopicBar做统计，逻辑列“转入订单”（勾选为转入订单，反之未进入订单）存在问题，代码如下

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("门市客户信息").SQLCompute("Count(客户名称)","进店日期  >= #"  & DateTime.Today & "# and 进店日期 < #" & DateTime.Today.AddDays(1) & "#")
Dim cnt2 As Integer = DataTables("门市客户信息").SQLCompute("Count(*)","Filter = Filter & 转入订单 = True")
Page = e.Form.Controls("TopicBar1").Pages.Add("今日客户统计","今日客户统计")
Page.Links.Add("今日新增客户","今日新增客户(" & cnt1 & ")" )
Page.Links.Add("今日转入订单","今日转入订单(" & cnt2 & ")" )

Select Case e.Link.Name
    Case "今日新增客户"
        Tables("门市客户信息").Filter = "进店日期 >= #"  & DateTime.Today & "# and 进店日期 < #" & DateTime.Today.AddDays(1) & "#"
    Case "今日转入订单"
        Tables("门市客户信息").Filter =  "转入订单 = True"
End Select
--  作者：大红袍
--  发布时间：2015/8/4 18:37:00
--  

这个意思？

 

Dim cnt2 As Integer = DataTables("门市客户信息").SQLCompute("Count(*)","转入订单 = True")
--  作者：douglas738888
--  发布时间：2015/8/4 20:21:00
--  
Dim cnt2 As Integer = DataTables("门市客户信息").SQLCompute("Count(*)","转入订单 = True")  原来这样我想多了，谢谢老师，另外老师，在这句代码上如何加上当天的条件代码，我试了几种写法都不对，进店日期= #"  & DateTime.Today & "# ，不知如何写了
--  作者：douglas738888
--  发布时间：2015/8/4 20:56:00
--  
修改以下代码就正常了，不知这样写代码对吗？？ 不确定Ture后加and能这样写吗？
AfterLoad的代码
Dim cnt2 As Integer = DataTables("客户信息").SQLCompute("Count(转入订单)","转入订单 = True and 进店日期 >= #"  & DateTime.Today & "# 

TopicLinkClick的代码

 Tables("客户信息").Filter = "转入订单 = True and 进店日期 >= #"  & DateTime.Today & "# and 进店日期 < #" & DateTime.Today.AddDays(1) & "#"
--  作者：大红袍
--  发布时间：2015/8/4 21:10:00
--  

 

Dim cnt2 As Integer = DataTables("门市客户信息").SQLCompute("Count(*)","转入订单 = True and 进店日期  >= #"  & DateTime.Today & "# and 进店日期 < #" & DateTime.Today.AddDays(1) & "#")
--  作者：douglas738888
--  发布时间：2015/8/4 21:19:00
--  
谢谢大红袍老师！！这么晚还辛苦服务！！！！