.NET Framework 版本:2.0.50727.5483
Foxtable 版本:2014.8.24.1
错误所在事件:
详细错误信息:
不支持给定路径的格式。
不加 ProjectPath 可以但是文件会默认在\Attachments存放 对自动制作文件包就有影响 单独建立按钮可以报表路径 就没有问题。
Select Case e.DataCol.Name
Case "文件_附加","图片_附加"
If e.NewValue IsNot Nothing Then
Dim dr As DataRow = e.DataRow
Dim path As String = ProjectPath & format(dr("日期").Today,"yyyy") & "年度工作文件" & "\" & format(dr("日期").Today,"yyyy") & "商务来往函件" & "\" & format(dr("日期").Today,"yyyy-MM") & "函件" & "\" & dr("所属项目") & "\" & dr("文件名称")
e.NewValue = e.NewValue.Replace(path, "")
End If
End Select
BeforeAttachFile
Dim dr As DataRow = e.DataRow
If dr.IsNull("文件名称") Then
msgbox("文件名不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "文件_资料"
e.SubFolder = ProjectPath & format(dr("日期").Today,"yyyy") & "年度工作文件" & "\" & format(dr("日期").Today,"yyyy") & "商务来往函件" & "\" & format(dr("日期").Today,"yyyy-MM") & "函件" & "\" & dr("所属项目") & "\" & dr("文件名称")
Case "文件_附加"
SystemReady = False
e.SubFolder = ProjectPath & format(dr("日期").Today,"yyyy") & "年度工作文件" & "\" & format(dr("日期").Today,"yyyy") & "商务来往函件" & "\" & format(dr("日期").Today,"yyyy-MM") & "函件" & "\" & dr("所属项目") & "\" & dr("文件名称")
dr("文件_资料") = iif(dr.IsNull("文件_资料"), e.SubFolder & "\" & e.FileName, dr("文件_资料") & chr(13) & e.SubFolder & "\" & e.FileName)
SystemReady = True
[此贴子已经被作者于2014-8-25 19:40:51编辑过]