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


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

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


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/3 10:36:00 [显示全部帖子]

确认地址对的
就是不显示

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

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


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/3 11:24:00 [显示全部帖子]

地址没错，

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


加好友 发短信
等级：九尾狐 帖子：2473 积分：22829 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/11/4 15:04:00 [显示全部帖子]

实例
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:缩略图管理.foxdb
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 6 次数据查询