以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  路径格式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55867)

--  作者:yifan3429
--  发布时间: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编辑过]

--  作者:Bin
--  发布时间:2014/8/25 14:19:00
--  
可能是文件名称 列的问题.

你弹出一下拼接好的路径 看看是否正常.

--  作者:yifan3429
--  发布时间:2014/8/25 14:42:00
--  
弹出怎么写   我用调试代码的方法不行耶   还望明示
--  作者:Bin
--  发布时间:2014/8/25 14:45:00
--  
messsagebox.show() 啊
--  作者:有点甜
--  发布时间:2014/8/25 14:50:00
--  
 如果代码之前没有问题,那么就是你的表的数据不规范,比如一些特殊字符是不能作为文件名的。
--  作者:yifan3429
--  发布时间:2014/8/25 15:58:00
--  
Dim path As String ="工作包"& "\\" & "客户管理" & format(dr("日期").Today,"yyyy") & "\\"  & dr("部门") & "\\" &  format(dr("日期").Today,"yyyy") & "店面设计"   

文件写成  Project\\Attachments\\工作包    是没有问题的
  
我想写成Project\\工作包
Dim path As String =ProjectPath & "工作包"& "\\" & "客户管理" & format(dr("日期").Today,"yyyy") & "\\"  & dr("部门") & "\\" &  format(dr("日期").Today,"yyyy") & "店面设计"   

就会是格式错误的提示





--  作者:有点甜
--  发布时间:2014/8/25 16:03:00
--  

 回复6楼,不可能,例子发上来。


--  作者:yifan3429
--  发布时间:2014/8/25 19:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

[此贴子已经被作者于2014-8-25 19:41:53编辑过]

--  作者:yifan3429
--  发布时间:2014/8/25 19:42:00
--  
文件案例在8楼  老师顺便看看  这些怎样写更简单的代码


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140825193904.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-8-25 19:43:33编辑过]

--  作者:有点甜
--  发布时间:2014/8/25 19:46:00
--  
 开发者密码多少?