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


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

主题：[求助]移动开发绝对路径
帅哥哟，离线，有人找我吗？
18523982317
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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))
            Next
        End With
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 11:01:00 [显示全部帖子]

还有个问题就是   全屏显示图片  不支持放大缩小。。。。有点蛋疼
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 11:57:00 [显示全部帖子]

帮忙看看上面代码那里有问题？

 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 13:03:00 [显示全部帖子]

青大大，服务器上只弹出来第一个图片的路径
第二个图片的路径没弹出来，奇怪
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 13:03:00 [显示全部帖子]

我的代码  我觉得也没错啊
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 13:54:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170407135220.png
图片点击可在新窗口打开查看

我找到问题了，但是不知道怎么产生的。。。 replace掉vbcrlf也不行

    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("\","/")
sst = sst.Replace(vbcrlf,"")
Tables("错误日志").AddNew
Tables("错误日志").Current("表名") = "内"
Tables("错误日志").Current("记录") = sst
              .AddImage(UrlEncode(sst),UrlEncode(sst))
            Next
        End With
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 13:54:00 [显示全部帖子]

第一行没问题，后面的合成就变成了2行，为啥。。奇怪得很
 回到顶部
帅哥哟，离线，有人找我吗？
18523982317
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：852 积分：6109 威望：0 精华：0 注册：2015/12/24 13:02:00 		  发帖心情 Post By：2017/4/7 14:23:00 [显示全部帖子]

可以了 可以了  多谢青大大  不过能说说为什么不？为什么用str（）这种方式不行？

 回到顶部
总数 19 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询