以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]任务窗口设置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46835)
--  作者：aduydgd
--  发布时间：2014/2/28 11:08:00
--  [求助]任务窗口设置

帮助中提到：（怎么修改为从后台获取数据，而不是统计加载后的数据？）

要如上图所示，在TopicBar显示统计信息，通常在窗口的AfterLoad事件中加上类似的代码：

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("产品").Compute("Count(主键列)","日期 = #"  & Date.Today & "#")
Dim cnt2 As Integer = DataTables("产品").Compute("Count(主键列)","审核 = False Or 审核 IsNull")
Page = e.Form.Controls("TopicBar1").Pages.Add("产品资料","产品资料")
Page.Links.Add("今日新增产品","今日新增产品(" & cnt1 & ")" )
Page.Links.Add("审核不通过产品","审核不通过产品(" & cnt2 & ")" )
--  作者：Bin
--  发布时间：2014/2/28 11:10:00
--  

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("产品").SQLCompute("Count(主键列)","日期 = #"  & Date.Today & "#")
Dim cnt2 As Integer = DataTables("产品").SQLCompute("Count(主键列)","审核 = False Or 审核 IsNull")
Page = e.Form.Controls("TopicBar1").Pages.Add("产品资料","产品资料")
Page.Links.Add("今日新增产品","今日新增产品(" & cnt1 & ")" )
Page.Links.Add("审核不通过产品","审核不通过产品(" & cnt2 & ")" )



只有2014版本才有此功能
--  作者：aduydgd
--  发布时间：2014/2/28 11:13:00
--  
谢谢，
--  作者：aduydgd
--  发布时间：2014/2/28 11:21:00
--  

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = "待收货" And jieshoudanwei = \'" & _UserGroup & "\'")
Dim cnt2 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = "处理中" And wx_ren = \'" & _UserName & "\'")
Page = e.Form.Controls("TopicBar1").Pages.Add("维修任务","维修任务")
Page.Links.Add("待收货","待收货(" & cnt1 & ")" )
Page.Links.Add("处理中","处理中(" & cnt2 & ")" )

 

我的这个，怎么and后面的都变成灰色的，注释调的样子，这样写不对吗？
--  作者：Bin
--  发布时间：2014/2/28 11:22:00
--  
Dim cnt1 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = \'待收货\' And jieshoudanwei = \'" & _UserGroup & "\'")
Dim cnt2 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = \'处理中\' And wx_ren = \'" & _UserName & "\'")
--  作者：lsy
--  发布时间：2014/2/28 11:23:00
--  
Dim cnt1 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = \'待收货\' And jieshoudanwei = \'" & _UserGroup & "\'")
Dim cnt2 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = \'处理中\' And wx_ren = \'" & _UserName & "\'")
--  作者：aduydgd
--  发布时间：2014/2/28 11:26:00
--  
嗯，我之前是这样写的，但是统计不到信息，按条件加载是有的，我再试试，看看什么问题
--  作者：Bin
--  发布时间：2014/2/28 11:28:00
--  
没有,说明没有满足该条件的数据. 电脑是不会说谎的.
--  作者：aduydgd
--  发布时间：2014/2/28 11:32:00
--  
以下是引用Bin在2014-2-28 11:28:00的发言：
没有,说明没有满足该条件的数据. 电脑是不会说谎的.

老大，刚又测试了一下，试运行时没有，但是在开发中打开就有，这是什么情况？
--  作者：aduydgd
--  发布时间：2014/2/28 11:52:00
--  
因为我是外部表的原因吗？我的是项目打开不加载任何数据的，这个怎么解决？