以文本方式查看主题

-  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=65735)

--  作者:sjzsdu
--  发布时间:2015/3/21 15:41:00
--  多文件列增加附件时,不支持给定路径的格式
老师,我在多文件列中增加附件时,出现这个错误。不知道什么原因
以下是beforeAttachfile中的事件代码:
Dim dr As DataRow= e.DataRow.GetParentRow("数码印花订单")
If dr.IsNull("客户简称") Or dr.IsNull("下单日期") Then
    MessageBox.show("数码印花订单的款号或者下单日期不能为空,请先输入内容","提示")
    e.Cancel=True
ElseIf  e.DataRow.IsNull("花型名称")  Then
    MessageBox.show("数码印花明细的花型名称不能为空,请先输入内容","提示")
    e.Cancel=True
Else
    Select Case e.DataCol.name
        Case "原始稿件"
            e.SubFolder=dr("客户简称") & "\\" & dr("下单日期") & "\\" & e.DataRow("花型名称") & "\\原始稿件"
           
 Case "印花图稿"
            e.SubFolder=dr("客户简称") & "\\" & dr("下单日期") & "\\" & e.DataRow("花型名称") & "\\印花图稿"

图片点击可在新窗口打开查看此主题相关图片如下:55.png
图片点击可在新窗口打开查看

    End Select
End If

--  作者:Bin
--  发布时间:2015/3/21 15:42:00
--  
messagebox.show(e.SubFolder) 看看你拼接出来的是啥玩意