Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于储存EXCEL文件问题


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

主题：关于储存EXCEL文件问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/7/31 16:02:00 [显示全部帖子]

怎么刚添加的能显示图片，如果加载窗体后图片就不显示了，双击图标提示图片不存在，是什么原因？

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

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

[此贴子已经被作者于2020/7/31 16:04:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/7/31 17:00:00 [显示全部帖子]

每一行图片的位置是不一样的，保存图片时根据保存时的年、月份来保存的，比如目前日期是2020年7月31号，图片会保存到程序文件的“图片资料/2020年/07月”文件下，所以无法确定位置的
[此贴子已经被作者于2020/7/31 17:00:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/7/31 17:37:00 [显示全部帖子]

If Forms("窗口1").Opened Then
Dim p As WinForm.PictureViewer = Forms("窗口1").Controls("PictureViewer1")
p.RootDir = ProjectPath & "图片资料\" & format(e.Table.current("开piao日期"),"yyyy年") & format(e.Table.current("开piao日期"),"MM月")
End If

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

还是不显示



直接设置PictureViewer控件 C:\Users\Administrator\Desktop\新建文件夹 (2)\图片资料\2020年\07月 就能显示，选其他数据就不显示了

[此贴子已经被作者于2020/7/31 17:47:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/3 20:53:00 [显示全部帖子]

怎么还是不显示呢？


If Forms("窗口1").Opened AndAlso e.Table.current IsNot Nothing Then
Dim p As WinForm.PictureViewer = Forms("窗口1").Controls("PictureViewer1")
p.RootDir = ProjectPath & "图片资料\" & format(e.Table.current("开piao日期"),"yyyy年") & "\" & format(e.Table.current("开piao日期"),"MM月") & "\" 
End If
[此贴子已经被作者于2020/8/3 20:53:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/3 21:11:00 [显示全部帖子]

经过测试还是不显示？

文件存放在项目文件夹下的：图片资料\2020年\**月份文件夹下
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/3 21:44:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试文件.rar
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/3 22:11:00 [显示全部帖子]


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

双击数据行会弹出窗口1，窗体"PictureViewer”控件不显示图片

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

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


[此贴子已经被作者于2020/8/3 22:15:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/6 14:05:00 [显示全部帖子]


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

打开按钮代码：
Dim dr As DataRow = Tables("fa piao填开库存表.填开fa piao附件数据表").Current.DataRow
Dim fl As String =  ProjectPath & "附件资料/" & dr("文件名称")
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then '如果本地存在同名文件且CRC校验值相同
    '则直接使用本地文件
Else '否则从数据库提取文件
    If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败
        Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If
End If
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()

为什么刚打开窗体时，文件能打开，当关闭文档后再次打开时会出错，重新启动窗体后又能打开文件，第二次就会出错，是什么原因？
[此贴子已经被作者于2020/8/6 14:14:23编辑过]
 回到顶部
总数 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.06250 秒, 6 次数据查询