窗体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.文件管理器中选删除或清除，文件实际还在，并未从硬盘中删除，要怎么设置
加好友 
发短信
Post By：2018/12/11 23:09:00 [只看该作者]
