Foxtable(狐表) → 用户栏目 → 专家坐堂 → 存储地址错误


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

主题：存储地址错误
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		存储地址错误  发帖心情 Post By：2014/11/3 9:15:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.10.23.1
错误所在事件：表，产品数据库，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。



If e.DataCol.Name = "产品效果图" Then
    If e.NewValue <> Nothing Then
        Dim file As String = Vars("IP2") & e.NewValue
        Dim img As image = getImage(file)
        Dim bmp As new bitmap(getImage(file), img.width / 5, img.height / 5)
        file = "d:\产品缩略图\"  & e.NewValue
        Dim path As String = file.Replace(FileSys.GetName(file),"")
        If FileSys.DirectoryExists(path) = False Then '如果目录C:\MyFolder存在
            FileSys.CreateDirectory(path)
        End If
        bmp.save(file)
        
        bmp.Dispose
    End If
    e.DataRow("缩略图") = e.NewValue
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/11/3 9:20:00 [只看该作者]

Dim file As String = Vars("IP2") & e.NewValue
If FileSys.FileExists(file ) Then

        Dim img As image = getImage(file)



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


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/3 9:33:00 [只看该作者]

修改后文件名会正常  但是缩略图文件不会存到  "D\文件检索图\"  打开出现叉叉
  
If e.DataCol.Name = "产品效果图" Then
    If e.NewValue <> Nothing Then
        Dim file As String = Vars("IP2") & e.NewValue
        If FileSys.FileExists(file ) Then
            Dim img As image = getImage(file)
            Dim bmp As new bitmap(getImage(file), img.width / 5, img.height / 5)
            file =  "D\文件检索图\"  & e.NewValue
            Dim path As String = file.Replace(FileSys.GetName(file),"")
            If FileSys.DirectoryExists(path) = False Then '如果目录C:\MyFolder存在
                FileSys.CreateDirectory(path)
            End If
            bmp.save(file)
            
            bmp.Dispose
        End If
        e.DataRow("缩略图") = e.NewValue
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/3 9:35:00 [只看该作者]

 路径写错了啊 file =  "D:\文件检索图\"  & e.NewValue

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


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/3 10:18:00 [只看该作者]

文件还是不能存到"D:\文件检索图\" 叉叉无效文件

If e.DataCol.Name = "产品效果图" Then
    If e.NewValue <> Nothing Then
        Dim file As String = Vars("IP2") & e.NewValue
        If FileSys.FileExists(file ) Then
            Dim img As image = getImage(file)
            Dim bmp As new bitmap(getImage(file), img.width / 5, img.height / 5)
            'file =  "D:\文件检索图\"  & e.NewValue
            file =  "D:\文件检索图\"  & e.NewValue
            Dim path As String = file.Replace(FileSys.GetName(file),"")
            If FileSys.DirectoryExists(path) = False Then '如果目录C:\MyFolder存在
                FileSys.CreateDirectory(path)
            End If
            bmp.save(file)
            
            bmp.Dispose
        End If
        e.DataRow("缩略图") = e.NewValue
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/3 10:22:00 [只看该作者]

 1、你的缩略图列的列属性的存放路径要设置成 D:\文件检索图\

 

 2、你自己去确认一下缩略图是否有生成啊
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/3 10:36:00 [只看该作者]

确认地址对的
就是不显示

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/3 10:39:00 [只看该作者]

1、加入代码 msgbox(e.DataTable.DataCols("缩略图").defaultfolder)

 

2、加入代码 msgbox(file) 、 msgbox(e.newvalue)

 

对比结果。
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/3 11:09:00 [只看该作者]


 msgbox(file)
---------------------------
产品管理中心.DataTable.A1L5li2Ck5yq68Xff
---------------------------
\\192.168.18.248\天禧家$\客户管理\产品库2014产品库\1.设计方案\固装方案\A 效果图片\SJFB0001固装方案.jpg
---------------------------
确定   
---------------------------

msgbox(e.newvalue)
---------------------------
产品管理中心.DataTable.A1L5li2Ck5yq68Xff
---------------------------
2014产品库\1.设计方案\固装方案\A 效果图片\SJFB0001固装方案.jpg
---------------------------
确定   
---------------------------

msgbox(e.DataTable.DataCols("缩略图").defaultfolder)
---------------------------
产品管理中心.DataTable.A1L5li2Ck5yq68Xff
---------------------------
D:\文件检索图\
---------------------------
确定   
---------------------------



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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/3 11:11:00 [只看该作者]

那就有问题啊，根本就不是D盘的路径

 

msgbox(e.DataTable.DataCols("缩略图").defaultfolder)
 回到顶部
总数 14 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.04492 秒, 4 次数据查询