- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 路径格式问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55867)
-- 发布时间：2014/8/25 14:16:00
-- 路径格式问题
.NET Framework 版本：2.0.50727.5483
Foxtable 版本：2014.8.24.1
错误所在事件：
详细错误信息：
不支持给定路径的格式。
不加 ProjectPath 可以但是文件会默认在\\Attachments存放 对自动制作文件包就有影响 单独建立按钮可以报表路径 就没有问题。
DataColChanging
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编辑过]
-- 发布时间：2014/8/25 14:19:00
--
可能是文件名称 列的问题.
你弹出一下拼接好的路径 看看是否正常.
-- 发布时间：2014/8/25 14:42:00
--
弹出怎么写 我用调试代码的方法不行耶 还望明示
-- 发布时间：2014/8/25 14:45:00
--
messsagebox.show() 啊
-- 发布时间：2014/8/25 14:50:00
--
如果代码之前没有问题，那么就是你的表的数据不规范，比如一些特殊字符是不能作为文件名的。
-- 发布时间：2014/8/25 15:58:00
--
Dim path As String ="工作包"& "\\" & "客户管理" & format(dr("日期").Today,"yyyy") & "\\" & dr("部门") & "\\" & format(dr("日期").Today,"yyyy") & "店面设计"
我想写成Project\\工作包
Dim path As String =ProjectPath & "工作包"& "\\" & "客户管理" & format(dr("日期").Today,"yyyy") & "\\" & dr("部门") & "\\" & format(dr("日期").Today,"yyyy") & "店面设计"
就会是格式错误的提示
-- 发布时间：2014/8/25 16:03:00
--
回复6楼，不可能，例子发上来。
-- 发布时间：2014/8/25 19:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
[此贴子已经被作者于2014-8-25 19:41:53编辑过]
-- 发布时间：2014/8/25 19:42:00
--
文件案例在8楼 老师顺便看看 这些怎样写更简单的代码
此主题相关图片如下：qq截图20140825193904.png
[此贴子已经被作者于2014-8-25 19:43:33编辑过]
-- 发布时间：2014/8/25 19:46:00
--
开发者密码多少？