以文本方式查看主题 - 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 -- 添加附件 运行时出现:不支持给定路径的格式,不知是什么情况?
|
||||
-- 作者:有点色 -- 发布时间: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文件夹目录下面自动生成专属于客户项目的文件夹! |