- 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=104272)
-- 发布时间：2017/7/26 15:23:00
-- [求助]审批·
怎么把·画圈那里显示当前登录的用户名呢···
此主题相关图片如下：czzz.png
另外·如果想实现··审核列·批准列·加入图片·显示·怎么实现·
[此贴子已经被作者于2017/7/26 16:13:36编辑过]
-- 发布时间：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
-- 发布时间：2017/7/26 17:45:00
-- 回复：（有点甜）drawcell事件 If e.col.nam...
·可能是我表述·不完整·我是说·画圈哪个显示·的是审核人·不是字母··
-- 发布时间：2017/7/26 18:39:00
--
以下是引用jiangnanlove在2017/7/26 17:45:00的发言：
·可能是我表述·不完整·我是说·画圈哪个显示·的是审核人·不是字母··
·可能是我表述·不完整·我是说·画圈哪个显示·的是审核人·不是字母··
根据什么显示？从哪里查询出你需要的数据显示？做个实例上来看看。
-- 发布时间：2017/7/27 8:43:00
-- 回复：（有点甜）以下是引用jiangnanlove在2017/7/26 ...
就是审核·列·显示是谁审核的···现在那栏显示的是字母·
此主题相关图片如下：q123z.png
此主题相关图片如下：q123z123.png
-- 发布时间：2017/7/27 8:51:00
--
把你的代码username改成user.name即可。
-- 发布时间：2017/7/27 8:56:00
--
If User.Group = "经理" Then
Tables("表A").Current("审核") = User.Name
Tables("表A").Current("审核日期") = Date.Today()
Else
是这样么·
-- 发布时间：2017/7/27 9:36:00
--
是的。
-- 发布时间：2017/7/27 13:51:00
-- 回复：（有点甜） 是的。
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 &
")" )
····················
上面代码中的··
DataTables("产品").Compute("Count(主键列)·
是引用表的对应列么··主键列是·产品列还是·哪列··
-- 发布时间：2017/7/27 14:01:00
--
随便写一列都可以的，比如 产品名称、_Identify 等，都可以。