以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  上传文件重命名文件类型问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128633)
--  作者：wakai
--  发布时间：2018/12/11 23:09:00
--  上传文件重命名文件类型问题

窗体AfterLoad事件

DataTables("进仓单明细").DataCols("COA").ExtendType = ExtendTypeEnum.FILES

DataTables("进仓单明细").DataCols("COA").DefaultFolder = "\\\\192.168.1.18\\PG\\YLJianNianDan\\COA"


BeforeAttachFile事件

Dim dr As DataRow = e.DataRow
If dr.IsNull("商品ID")  Or Dr.IsNull("批号") Then
    MessageBox.Show("请先输入商品ID或批号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
e.FileName = dr("商品ID") & "_" & dr("批号") & "_" & dr("有效日期")
End If

请教老师2个问题
1.上传重命名后文件怎么保留原文件后缀，如设为".jpg"将会把DOC或PDF文件也存为JPG格式，
2.文件管理器中选删除或清除，文件实际还在，并未从硬盘中删除，要怎么设置
--  作者：有点蓝
--  发布时间：2018/12/11 23:22:00
--  
1、
Dim dr As DataRow = e.DataRow
If dr.IsNull("商品ID")  Or Dr.IsNull("批号") Then
    MessageBox.Show("请先输入商品ID或批号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
Dim arr() As String = e.FileName.split(".")
e.FileName = dr("商品ID") & "_" & dr("批号") & "_" & dr("有效日期") & "." & arr(arr.Length - 1)
End If

2、窗体AfterLoad事件

DataTables("进仓单明细").DataCols("COA").ExtendType = ExtendTypeEnum.FILES

DataTables("进仓单明细").DataCols("COA").DefaultFolder = "\\\\192.168.1.18\\PG\\YLJianNianDan\\COA"

DataTables("进仓单明细").DataCols("COA").AutoDeleteAttachFile = True
--  作者：wakai
--  发布时间：2018/12/12 12:19:00
--  
谢谢蓝老师，删除文件怎么设置呢，实际没有删除
--  作者：有点甜
--  发布时间：2018/12/12 15:20:00
--  
以下是引用wakai在2018/12/12 12:19:00的发言：
谢谢蓝老师，删除文件怎么设置呢，实际没有删除

 

1、代码改成

 

DataTables("进仓单明细").DataCols("COA").AutoDeleteAttachFile = 1

 

2、是不是你的【共享文件夹】没有开放允许删除的权限？
--  作者：wakai
--  发布时间：2018/12/12 16:40:00
--  
甜老师，由true改为1就可以了