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文件夹目录下面自动生成专属于客户项目的文件夹!
加好友 
发短信
Post By：2017/6/19 15:38:00 [显示全部帖子]
