[求助]移动开发绝对路径 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]移动开发绝对路径

共有5421人关注过本帖平板打印复制链接主题：[求助]移动开发绝对路径

18523982317

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00

Post By：2017/4/7 10:48:00 [只看该作者]

If dr.IsNull("扫描件") = False Then

Dim str As String = dr("扫描件")

Dim sts() As String = str.Split(vbcrlf)

With .AddUploader("up1","扫描件",True)

.AllowAdd = False '关闭文件上传功能

For Each sst As String In sts

sst = "\d:\ftp" & sst

sst = sst.Replace("\\","\")

sst = sst.Replace("\","/")

'msgbox(sst)

.AddImage(UrlEncode(sst),UrlEncode(sst))

End With

End If

总数 34 1 2 3 4 下一页

主题：[求助]移动开发绝对路径