Foxtable(狐表)用户栏目专家坐堂 → 填写完整的文件路径


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

主题:填写完整的文件路径

美女呀,离线,留言给我吧!
yfy13338431925
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
填写完整的文件路径  发帖心情 Post By:2020/6/27 15:39:00 [只看该作者]

假定表中有两列,分别是身份证号码和照片,希望向照片列添加文件的时候,能自动根据照片存放的位置和身份证号码,向照片列填写完整的文件路径,

在将BeforeAttachFile事件代码中的 e.FileName = dr("身份证号码"& ".jpg" 该如何写?

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


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/27 16:07:00 [只看该作者]

Dim dr As DataRow = e.DataRow
If dr.IsNull("身份证号码")  Then
    MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    Dim  dir As String = FileSys.GetParentPath(e.FileName)
    e.FileName = dir & "\" & dr("身份证号码") & ".jpg"
End If

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


加好友 发短信
等级:三尾狐 帖子:787 积分:6175 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2020/6/27 18:09:00 [只看该作者]

蓝老师;结果不对啊,填充的结果是   \照片号.pdf。盘符等路径信息没有

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/6/27 22:00:00 [只看该作者]

我也试了,结果不是我想要的

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


加好友 发短信
等级:四尾狐 帖子:855 积分:6402 威望:0 精华:0 注册:2017/11/21 21:31:00
  发帖心情 Post By:2020/6/27 22:14:00 [只看该作者]

to 1楼:图片文件名是:"身份证号码.jpg"吗?如果不是,你写上这个文件名是读不出来的,首先你在命名图片文件名时就必须把身份证号码写上。在图片列写文件名只是 把原来命名的文件明名写上来而已。

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/6/27 22:16:00 [只看该作者]

是pdf,不是读取,是填写存放地址

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/6/28 0:49:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/6/28 8:50:00 [只看该作者]

蓝老师,帮我看看啊

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/28 9:25:00 [只看该作者]

e.FileName = e.DataCol.DefaultFolder  & "\" & dr("照片号") & ".jpg"

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/6/28 20:28:00 [只看该作者]

老师,还是报错。结果也不对


 回到顶部
总数 17 1 2 下一页