主题：一个下载记录的问题

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

 

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

 

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

 

 

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

没有另存或者下载的事件可以用。除非你用ftpclient自己做文件管理

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

 

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

好吧。打开也算是另类的下载了

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

 

现在显示的是  老马 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