Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据列绑定FTP 远程后 无法下载图片


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

主题：数据列绑定FTP 远程后 无法下载图片
帅哥哟，离线，有人找我吗？
freeants
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		数据列绑定FTP 远程后 无法下载图片  发帖心情 Post By：2014/11/25 12:52:00 [显示全部帖子]

数据列绑定FTP 远程后 无法下载图片


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20141125125057.png
图片点击可在新窗口打开查看


但是点击管理 可以找到


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20141125125340.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
freeants
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/25 14:51:00 [显示全部帖子]

可以啊 有权限的  毕竟我用管理 可以打开

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


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/25 15:35:00 [显示全部帖子]

DataTables("面料查询").DataCols("abcl图片").ExtendType = ExtendTypeEnum.Images
        DataTables("面料查询").DataCols("abcl图片").Remote=True
        Dim i As Integer = 1
        DataTables("面料查询").DataCols("abcl图片").FTPClient.Host = GetConfigValue("IP" & i,"")
        DataTables("面料查询").DataCols("abcl图片").FTPClient.Account = GetConfigValue("用户名" & i,"")
        DataTables("面料查询").DataCols("abcl图片").FTPClient.Password = GetConfigValue("密码" & i,"")
        DataTables("面料查询").DataCols("abcl图片").FTPClient.UTF8 = True
        DataTables("面料查询").DataCols("abcl图片").FTPClient.RootDir = "/picture/abcl" '设置根目录
 回到顶部
帅哥哟，离线，有人找我吗？
freeants
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/25 16:07:00 [显示全部帖子]




[此贴子已经被作者于2014-11-25 16:10:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
freeants
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/25 16:09:00 [显示全部帖子]

已经把ABCL 文件夹 移到根目录 


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20141125161009.png
图片点击可在新窗口打开查看

数据就是 40103.jpg

DataTables("面料查询").DataCols("abcl图片").FTPClient.RootDir = "" '设置根目录
DataTables("面料查询").DataCols("abcl图片").FTPClient.OpenManager()

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20141125160554.png
图片点击可在新窗口打开查看

DataTables("面料查询").DataCols("abcl图片").FTPClient.RootDir = "/abcl" '设置根目录
DataTables("面料查询").DataCols("abcl图片").FTPClient.OpenManager()

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20141125160802.png
图片点击可在新窗口打开查看






[此贴子已经被作者于2014-11-25 16:10:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
freeants
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/26 9:56:00 [显示全部帖子]

是用的 又拍云 存储 提供的 FTP 

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


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/26 10:49:00 [显示全部帖子]

可能还是 大小写的 问题 ，正在测试中 

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


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/26 11:10:00 [显示全部帖子]

DataTables("面料查询").DataCols("abcl图片").ExtendType = ExtendTypeEnum.Images
        DataTables("面料查询").DataCols("abcl图片").Remote=True
        Dim i As Integer = 1
        DataTables("面料查询").DataCols("abcl图片").FTPClient.Host = GetConfigValue("IP" & i,"")
        DataTables("面料查询").DataCols("abcl图片").FTPClient.Account = GetConfigValue("用户名" & i,"")
        DataTables("面料查询").DataCols("abcl图片").FTPClient.Password = GetConfigValue("密码" & i,"")
        DataTables("面料查询").DataCols("abcl图片").FTPClient.UTF8 = True
        DataTables("面料查询").DataCols("abcl图片").FTPClient.RootDir = "/picture/abcl" '设置根目录

输入上面的 设置 代码后 
DataTables("面料查询").DataCols("abcl图片")  的 列属性  是下面


此主题相关图片如下：搜狗截图20141126111219.png
按此在新窗口浏览图片

为何没有调整呢
 回到顶部
帅哥哟，离线，有人找我吗？
freeants
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/26 21:14:00 [显示全部帖子]

因为 图片 扩展列 需要 用到FTP 服务器， 我需要 它始终保持大写， 怎么写代码呢

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


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2014/11/26 21:20:00 [显示全部帖子]

我放在  DataColChanged 

If e.DataCol.Name = "abcl图片" Then
    If e.NewValue IsNot Nothing Then
        e.NewValue = e.NewValue.ToUpper()
    End If
    
End If

没有变化 啊 
 回到顶部
总数 12 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.05469 秒, 5 次数据查询