以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]一个审核窗口不同人登录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89212)
--  作者：cd_tdh
--  发布时间：2016/8/17 12:18:00
--  [求助]一个审核窗口不同人登录
多个审批流程，我只用一个审批窗口（里面有：审批意见、审批人=当前用户、审批时间=当前时间），当不同的人登录时，填入的审批意见到对应的列，审批人和审批时间自动填入，不绑定列，全部用代码怎么实现啊？
--  作者：大红袍
--  发布时间：2016/8/17 12:22:00
--  

 Dim r As Row = Tables("").Current

 r("某列") = e.Form.Controls("TextBox1").Text

 r("某列") = user.Name

 r("某列") = Date.Now
--  作者：cd_tdh
--  发布时间：2016/8/17 12:31:00
--  
大红袍老师，这个没法实现张三登录，数据填充到1.2.3列，李四登录数据填充到4.5.6列，王五登录数据填充到7.8.9列啊？
--  作者：大红袍
--  发布时间：2016/8/17 14:40:00
--  

If User.Group = "分组1" Then  
    Dim r As Row = Tables("").Current
    r("某列") = e.Form.Controls("TextBox1").Text
    r("某列") = user.Name
    r("某列") = Date.Now
ElseIf User.Group = "分组2" Then
    Dim r As Row = Tables("").Current
    r("某列") = e.Form.Controls("TextBox1").Text
    r("某列") = user.Name
    r("某列") = Date.Now
End If