以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个下载记录的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94016)
--  作者：douglas738888
--  发布时间：2016/12/13 13:37:00
--  一个下载记录的问题

请教老师，下面的代码能实现，点击下载资料列，在记录列填入触发下载列的_username,

 

有个问题请教，我想设定，登录的用户，点击下载资料列打开文件管理器窗口，点击另存或者另存文件的时候，在记录列自动填入_username，用于记录那些用户下载过文件

 

If e.Col.Name = "下载资料" Then
    e.Row("记录") = (e.Row("记录") & "," & _UserName).Trim(",")
End If

 

 

目前，我是把代码放在CellButtonClick，点击下拉触发，但是这个触发不能准确知道是否下载文件了，所以需要在发生另存的时候才在记录列填入_username

[此贴子已经被作者于2016/12/13 13:50:13编辑过]
--  作者：有点蓝
--  发布时间：2016/12/13 14:10:00
--  
没有另存或者下载的事件可以用。除非你用ftpclient自己做文件管理
--  作者：douglas738888
--  发布时间：2016/12/13 14:18:00
--  

蓝老师，如果是局域网，也参照ftpclien吗，老师，用二进制列做吗

 

测试了一下，代码修改一下 写入BeforeOpenFile可以实现，不用做FTPCLIEN

[此贴子已经被作者于2016/12/13 14:45:47编辑过]
--  作者：有点蓝
--  发布时间：2016/12/13 14:56:00
--  
好吧。打开也算是另类的下载了
--  作者：douglas738888
--  发布时间：2016/12/13 16:22:00
--  

老师，还得请教下，下面代码实现不了换行，哪里写错了

 

现在显示的是  老马 2016-12-02 老张2016

                   -12-03

要实现的是   老马 2016-12-02

                 老张 2016-12-03

 

e.DataRow("记录") = (e.DataRow("记录") & _UserName & " " & Date.Now)

Dim M As String = e.DataRow("记录")
Dim Values As String
Values &= "-" & M & vbcrlf

 

应该这样写好像就对了 ，不用如此复杂

e.DataRow("记录") = (e.DataRow("记录") & _UserName & " " & Date.Now) & vbcrlf

[此贴子已经被作者于2016/12/13 16:31:13编辑过]