Foxtable(狐表)用户栏目专家坐堂 → [求助]任务窗口设置


  共有3911人关注过本帖树形打印复制链接

主题:[求助]任务窗口设置

帅哥哟,离线,有人找我吗?
aduydgd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
[求助]任务窗口设置  发帖心情 Post By: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 & ")" )


 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 11:13:00 [显示全部帖子]

谢谢,

 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By: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后面的都变成灰色的,注释调的样子,这样写不对吗?


 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 11:26:00 [显示全部帖子]

嗯,我之前是这样写的,但是统计不到信息,按条件加载是有的,我再试试,看看什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 11:32:00 [显示全部帖子]

以下是引用Bin在2014-2-28 11:28:00的发言:
没有,说明没有满足该条件的数据. 电脑是不会说谎的.

老大,刚又测试了一下,试运行时没有,但是在开发中打开就有,这是什么情况?


 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 11:52:00 [显示全部帖子]

因为我是外部表的原因吗?我的是项目打开不加载任何数据的,这个怎么解决?

 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 12:35:00 [显示全部帖子]

我直接在窗口设计器里面运行,能统计到信息,如图:

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

 

 

但是我直接运行项目没有统计到信息,为了测试到底有没有数据,我在项目中添加命令窗口测试,输出的结果是有的,但是就是在任务里面都是显示0,搞不清楚状况,望解答,谢谢

 


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

 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 12:46:00 [显示全部帖子]

在窗口的AfterLoad事件中写的,代码如下:

 

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 & "'")   
Dim cnt3 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = '待出库' and weixiuzhuangtai in (select mingcheng from weixiu_jieguo_table where jieguo_z = 1) And jieshoudanwei = '" &  _UserGroup & "'")
Dim cnt4 As Integer = DataTables("main_table").SQLCompute("Count(_Identify)","danjuzhuangtai = '已收货' And jieshoudanwei = '" &  _UserGroup & "'")
Page = e.Form.Controls("TopicBar1").Pages.Add("维修任务","维修待处理任务")
Page.Links.Add("待收货","待收货(" & cnt1 & ")" )
Page.Links.Add("待派工","待派工(" & cnt4 & ")" )
Page.Links.Add("待维修","待维修(" & cnt2 & ")" )
Page.Links.Add("待出库","待出库(" & cnt3 & ")" )
page.Links.Add("测试","测试")


 回到顶部
帅哥哟,离线,有人找我吗?
aduydgd
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:681 积分:5332 威望:0 精华:0 注册:2011/12/26 20:43:00
  发帖心情 Post By:2014/2/28 14:34:00 [显示全部帖子]

刚测试了一下,打开项目后,用按键执行生成的任务是可以的,统计的都对,但是用窗口加载后执行生成任务代码就不统计了,不知道什么原因,高手分析一下,狐爸分析一下,谢谢

 回到顶部