Foxtable(狐表)用户栏目专家坐堂 → [求助]关于动态设置文件存储位置及文件改名存储


  共有2463人关注过本帖树形打印复制链接

主题:[求助]关于动态设置文件存储位置及文件改名存储

帅哥哟,离线,有人找我吗?
chh2321
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2573 威望:0 精华:0 注册:2016/8/8 9:50:00
[求助]关于动态设置文件存储位置及文件改名存储  发帖心情 Post By:2020/3/19 23:49:00 [只看该作者]

请教老师:

我在BeforeAttachFile中,写如下代码:

Dim dr As DataRow = e.DataRow
Dim n As Integer = e.DataRow.Lines("附件").Count
If dr.IsNull("HIS号") Or dr.IsNull("姓名") Or Dr.IsNull("检查时间") Then
    MessageBox.Show("HIS号,姓名和检查时间不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("HIS号") & dr("姓名") & "\" & dr("检查时间").Year
    e.FileName = dr("HIS号") & dr("姓名") & dr("检查时间") & "-" & n+1 & ".jpg"
End If

出现运行错误:不支持给定路径的格式。

是什么原因?
[此贴子已经被作者于2020/3/20 0:00:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2020/3/20 9:43:00 [只看该作者]

看看合成的文件名和路径是什么:

Dim dr As DataRow = e.DataRow
Dim n As Integer = e.DataRow.Lines("附件").Count
If dr.IsNull("HIS号") Or dr.IsNull("姓名") Or Dr.IsNull("检查时间") Then
    MessageBox.Show("HIS号,姓名和检查时间不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("HIS号") & dr("姓名") & "\" & dr("检查时间").Year
    e.FileName = dr("HIS号") & dr("姓名") & dr("检查时间") & "-" & n+1 & ".jpg"
    MessageBox.show(e.SubFolder)
    MessageBox.show(e.FileName)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
chh2321
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2573 威望:0 精华:0 注册:2016/8/8 9:50:00
  发帖心情 Post By:2020/3/20 11:17:00 [只看该作者]


谢谢老师,明白了,是因为“检查时间”是YYYY-MM-dd 时:分:秒 的格式引起的

 回到顶部