主题：[求助]审批·

怎么把·画圈那里显示当前登录的用户名呢···
此主题相关图片如下：czzz.png

drawcell事件

 

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

    e.text = User.Name

End If

 

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

 

·可能是我表述·不完整·我是说·画圈哪个显示·的是审核人·不是字母··

 

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

就是审核·列·显示是谁审核的···现在那栏显示的是字母·
此主题相关图片如下：q123z.png

此主题相关图片如下：q123z123.png

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

If User.Group = "经理" Then
    Tables("表A").Current("审核") = User.Name
    Tables("表A").Current("审核日期") = Date.Today()
Else

 是的。

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(主键列)·

是引用表的对应列么··主键列是·产品列还是·哪列··

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