以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在单元格输入内容后，自动填入当前用户名？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83106)
--  作者：36792209
--  发布时间：2016/3/31 14:31:00
--  [求助]如何在单元格输入内容后，自动填入当前用户名？
如何在单元格输入内容后，自动填入当前用户名？

我不想专门增加列来用于记录，这个怎么实现？
--  作者：大红袍
--  发布时间：2016/3/31 15:19:00
--  
 肯定是需要用一个地方存放用户名的。那你想把用户名填到那里？当前单元格？
--  作者：大红袍
--  发布时间：2016/3/31 15:21:00
--  

DataColChaing 事件

 

If e.DataCol.Name = "第一列" Then

    e.newValue = e.NewValue & " " & user.Name

End If
--  作者：36792209
--  发布时间：2016/3/31 15:35:00
--  
是的，我试试。。。
--  作者：36792209
--  发布时间：2016/3/31 15:49:00
--  
我不会变通，我录入数据后确实加入了用户名，可是删除内容后，自动加入的用户名删不掉，

如果加个判断怎么写啊
--  作者：大红袍
--  发布时间：2016/3/31 16:18:00
--  

你删除的时候，要把所有内容包括用户名一起删除

 

If e.DataCol.Name = "第一列" Then
    If e.NewValue <> Nothing Then
        e.newValue = e.NewValue & " " & user.Name
    End If
End If
--  作者：36792209
--  发布时间：2016/3/31 16:19:00
--  
已解决，尝试了好多的代码拼接，不容易啊

If e.DataCol.Name = "备注" Then
    
    If e.NewValue = Nothing  Then
    Else
        e.newValue = e.NewValue & "|" & user.Name
        
    End If
End If
--  作者：36792209
--  发布时间：2016/3/31 16:21:00
--  
我这么写对么？
--  作者：大红袍
--  发布时间：2016/3/31 16:50:00
--  
差不多，参考6楼。