请教老师，在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
加好友 
发短信
Post By：2015/8/4 17:35:00 [只看该作者]
