以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请指教程序修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82236)
--  作者：万才理
--  发布时间：2016/3/14 13:52:00
--  请指教程序修改


If  e.DataRow("通知_状态") = True Then　　　\'是逻辑列
    e.DataRow("通知_经办员") = User.Name
    e.DataRow("通知_时间") = Date.Now()
Else
    e.DataRow("通知_经办员") = Nothing
    e.DataRow("通知_时间") = Nothing
End If
If  e.DataRow("签收_申请") = True Then　　\'是逻辑列
    e.DataRow("签收_管理员") = User.Name
Else
    e.DataRow("签收_管理员") = Nothing
End If

当点击“签收_申请”或"签收_申请"时，"通知_经办员"和"通知_时间"、"签收_管理员"均在变化，不能实现使点击"通知_状态"时只是"通知_经办员"和"通知_时间"生效，点击"签收_申请"时只是"签收_管理员"生效，怎么修改程序。
谢谢！
--  作者：9602084
--  发布时间：2016/3/14 14:11:00
--  
Select Case e.DataCol.name
    Case "通知_状态"        
        If  e.DataRow("通知_状态") = True Then   \'是逻辑列
            e.DataRow("通知_经办员") = User.Name
            e.DataRow("通知_时间") = Date.Now()
        Else
            e.DataRow("通知_经办员") = Nothing
            e.DataRow("通知_时间") = Nothing
        End If
    Case "签收_申请"
        If  e.DataRow("签收_申请") = True Then  \'是逻辑列
            e.DataRow("签收_管理员") = User.Name
        Else
            e.DataRow("签收_管理员") = Nothing
        End If
End Select
--  作者：万才理
--  发布时间：2016/3/14 16:13:00
--  
谢谢！