[求助]审批· - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]审批·

共有2774人关注过本帖树形打印复制链接主题：[求助]审批·

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 16:28:00 [显示全部帖子]

drawcell事件

If e.col.name = "审核" AndAlso e.text > "" Then

e.text = User.Name

End If

加入图片，参考 http://www.foxtable.com/webhelp/scr/2387.htm

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 18:39:00 [显示全部帖子]

以下是引用jiangnanlove在2017/7/26 17:45:00的发言：
·可能是我表述·不完整·我是说·画圈哪个显示·的是审核人·不是字母·· 图片点击可在新窗口打开查看

根据什么显示？从哪里查询出你需要的数据显示？做个实例上来看看。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 8:51:00 [显示全部帖子]

把你的代码username改成user.name即可。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 9:36:00 [显示全部帖子]

是的。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 14:01:00 [显示全部帖子]

随便写一列都可以的，比如产品名称、_Identify 等，都可以。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 14:46:00 [显示全部帖子]

Dim Page As WinForm.TopicPage

Dim cnt1 As Integer = DataTables("你自己的表名").Compute("Count(物料名称)","日期 = #" & Date.Today & "#")

Dim cnt2 As Integer = DataTables("你自己的表名").Compute("Count(部件名称)","日期 = #" & Date.Today & "#")

Dim cnt3 As Integer = DataTables("你自己的表名").Compute("Count(部件名称)","日期 = #" & Date.Today & "#")

Dim cnt4 As Integer = DataTables("你自己的表名").Compute("Count(部件名称)","日期 = #" & Date.Today & "#")

Page = e.Form.Controls("统计汇总").Pages.Add("产品资料","产品资料")

Page.Links.Add("今日新增采购部件","今日新增采购部件(" & cnt1 & ")" )

Page.Links.Add("今日新增计划工单","今日新增计划工单(" & cnt2 & ")" )

Page.Links.Add("今日新增入库部件","今日新增入库部件(" & cnt3 & ")" )

Page.Links.Add("今日新增出库部件","今日新增出库部件(" & cnt4 & ")"

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 17:09:00 [显示全部帖子]

Dim cnt1 As Integer = DataTables("采购汇总").Compute("Count(物料名称)","申购日期 >= #" & Date.Today & "# and 申购日期 < #" & Date.Today.AddDays(10) & "# And (订单状态 Is null Or 订单状态 <> 'OK') ")

下一主题 >> << 上一主题

主题：[求助]审批·