Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 显示图片


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

主题：[求助] 显示图片
帅哥哟，离线，有人找我吗？
sanny
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		[求助] 显示图片  发帖心情 Post By：2021/2/27 13:55:00 [显示全部帖子]

老师，

如图窗口，可否根据 单号 找到并显示后台数据库表A中二进制 列名 “附件 ”中的图片，在后台表A中存在这样的相同单号有很多，这相同的单号有的附件中没有图片，有的有图片，只要显示 附件中有图片的第一条记录的图片。

以下的试写了一下，感觉不对的。谢谢老师。


[此贴子已经被作者于2021/3/27 13:00:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/2/27 15:42:00 [显示全部帖子]

老师， 表A 是在后台中的，也就是下面的表 SDBC_Sa， 你的我试了一下，可不行。 我改成如下也不对，如图。请帮忙看看，麻烦了。










[此贴子已经被作者于2021/3/27 13:01:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/2/27 20:14:00 [显示全部帖子]

！
[此贴子已经被作者于2021/3/27 19:38:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/2/28 22:35:00 [显示全部帖子]

感谢老师，可以了，不过图片太小了，如何放大点，另外可以预览吗 ，另外可以另存到Excel 吗 ？ 谢谢。

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


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/3/1 23:06:00 [显示全部帖子]

谢谢老师，这个 名字 123  ，如何改成当前的单号的名字 ？ 另外如何打印预览 ？ 谢谢，

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


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/3/6 22:04:00 [显示全部帖子]

老师，如下出错了，请帮忙看一下，谢谢。


bmp.save( ProjectPath & "生产任务单照片\" & e.Form.Controls("TextBox1").Text &  ".jpg")
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/3/12 21:43:00 [显示全部帖子]

老师，以下怎么实现存在Excel 中？ 谢谢，


图片只能是打开后使用系统的看图软件打印。或者放到execl版本，专业报表等打印
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2021/3/13 11:16:00 [显示全部帖子]

谢谢老师， 以下黄色可以再帮忙修改一下吗 ？

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 0 To 9 '向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) * 10
    Sheet(i, 1).Value = (i + 1) * 100
    Sheet(i, 2).Value = (i + 1) * 1000
Next
Sheet(10,2).Value = New XLS.Picture(GetImage(e.Form.Controls("PictureBox1"))
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询