Foxtable(狐表)用户栏目专家坐堂 → BeforeAttachFile


  共有2192人关注过本帖平板打印复制链接

主题:BeforeAttachFile

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


加好友 发短信
等级:小狐 帖子:389 积分:3522 威望:0 精华:0 注册:2016/11/12 18:42:00
BeforeAttachFile  发帖心情 Post By:2018/9/19 20:35:00 [只看该作者]

原来在局域网环境下在BeforeAttachFile中代码如下设置的代码均能进行自动根据作者和拍摄日期创建子目录来存放文件,也能能自动根据身份证号码来重命名此文件,但换为ftp时却不能?代码不起作用

Dim dr As DataRow = e.DataRow
If
dr.IsNull("拍摄日期") Or Dr.IsNull("作者") Then
    MessageBox.Show(
"拍摄日期和作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel =
True
Else

    e.SubFolder = dr(
"作者") & "\" & dr("拍摄日期").Year
End
If


Dim dr As DataRow = e.DataRow
If
dr.IsNull("身份证号码"Then
    MessageBox.Show("
请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True

Else

    e.FileName = dr("身份证号码") & ".jpg"

End
If


 回到顶部