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


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

主题：填写完整的文件路径
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/28 9:25:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/28 20:50:00 [显示全部帖子]

msgbox(e.DataCol.DefaultFolder  & "\" & dr("照片号") & ".jpg") 显示什么？怎么样的结果才是对的？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/5 20:46:00 [显示全部帖子]

Dim dlg As new folderbrowserdialog
If dlg.ShowDialog = DialogResult.OK Then
    For Each r As Row In Tables("表A").Rows
        If r.IsNull("第二列") = False
            Dim name As String = r("第二列") & ".txt"
            Dim f As String = Functions.Execute("listfile", dlg.SelectedPath, name)
            r("原件") = f
        End If
    Next
End If

函数：
Dim dir As String = args(0)
Dim name As String = args(1)

Dim f As String = dir & "\" & name
Output.Show(f)
If FileSys.FileExists(f) Then
    Return f
End If

For Each fl As String In FileSys.GetDirectories(dir)
    f = Functions.Execute("listfile",fl,name)
    If f > "" Then
        Return f
    End If
Next
Return  ""
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/5 22:07:00 [显示全部帖子]

使用15楼的代码即可
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:填充原文路径.zip
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 6 次数据查询