以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]照片列存储路径，如何设置？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121724)
--  作者：hrw68529
--  发布时间：2018/7/12 10:33:00
--  [求助]照片列存储路径，如何设置？
有一列为“扫描件”，想将扫描件列的数据存储到指定的文件夹内，但总弄不成，例如：

BeforeAddFile事件 


If e.DataCol.Name = "扫描件" Then
    vars("path") = e.DataRow.Lines("扫描件")
End If


BeforeAttachFile事件


Dim dr As DataRow = e.DataRow
If dr.IsNull("年度") Or Dr.IsNull("工伤认定文号") Or dr.IsNull("受伤害职工姓名")  Then
    MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    If e.DataCol.Name = "扫描件" Then
          Dim ls = vars("path")
        e.SubFolder = e.DataCol.name & "\\" & dr("年度") & "\\" & dr("工伤认定文号") & "_" & dr("受伤害职工姓名")
        e.FileName = dr("受伤害职工姓名") & "_" & (ls.Count +1) & ".jpg"
        ls.add(e.FileName)
    End If
End If

上述代码中，想将文件存储到:reports\\工伤认定卷宗扫描件\\

将 这段代码改为：e.SubFolder = ProjectPath & "reports\\工伤认定卷宗扫描件\\" & e.DataCol.name & "\\" & dr("年度") & "\\" & dr("工伤认定文号") & "_" & dr("受伤害职工姓名")
可是不行，请问怎么改代码，谢谢
--  作者：有点甜
--  发布时间：2018/7/12 10:38:00
--  

1、afterOpenProject事件

 

DataTables("产品").DataCols("图片").DefaultFolder = ProjectPath & "reports\\工伤认定卷宗扫描件\\"

 

2、BeforeAttachFile事件

 

e.SubFolder = e.DataCol.name & "\\" & dr("年度") & "\\" & dr("工伤认定文号") & "_" & dr("受伤害职工姓名")
--  作者：hrw68529
--  发布时间：2018/7/12 11:25:00
--  
其他代码不变吧，有点甜，谢谢
--  作者：有点甜
--  发布时间：2018/7/12 11:45:00
--  
不变。
--  作者：hrw68529
--  发布时间：2018/7/12 14:23:00
--  
谢谢