以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  添加附件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102414)

--  作者:表叔
--  发布时间:2017/6/19 15:34:00
--  添加附件
运行时出现:不支持给定路径的格式,不知是什么情况?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:收款收据.rar


--  作者:有点色
--  发布时间:2017/6/19 15:38:00
--  
Dim dr  As  DataRow = e.DataRow
If dr.IsNull("交款方") Then
    MessageBox.Show("交款方不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel =  True
Else
    e.FileName =dr("收据编号").replace(":", ".") & ".pdf"
    e.SubFolder = dr("交款方")  \'&"\\" & dr("项目名称") & "\\" & dr("产品名称")
End  If  \'按"客户简称"\\"项目名称"在Attachments文件夹目录下面自动生成专属于客户项目的文件夹!