- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【二进制列文件】图片列为二进制，并且将文件写入了二进制列里，现在怎么在EXCEL报表中读取并打印出来呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109063)
-- 发布时间：2017/11/3 14:54:00
-- 【二进制列文件】图片列为二进制，并且将文件写入了二进制列里，现在怎么在EXCEL报表中读取并打印出来呢？
【二进制列文件】图片列为二进制，并且将文件写入了二进制列里，现在怎么在EXCEL报表中读取并打印出来呢？
目前在帮助里面没有找到直接获取的方法 大家有没有好的办法呢？
此主题相关图片如下：1.png
[此贴子已经被作者于2017/11/3 15:12:59编辑过]
-- 发布时间：2017/11/3 16:37:00
--
在报表事件里做：http://www.foxtable.com/webhelp/scr/2338.htm
If e.Book.TempLate = "SalesInvoice" Then
If e.region = "SaleOrderDetail" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("Lot") Then \'如果是空行或者Lot列为空
Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
img.Save(ProjectPath & "Images\\BarCode.gif")
Else \'否则生成条形码图片
这里写代码从数据库获取图片数据并保存到Images目录中
End If
End If
End If
If e.region = "SaleOrderDetail" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("Lot") Then \'如果是空行或者Lot列为空
Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
img.Save(ProjectPath & "Images\\BarCode.gif")
Else \'否则生成条形码图片
这里写代码从数据库获取图片数据并保存到Images目录中
End If
End If
End If
-- 发布时间：2017/11/3 16:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:瓮安县院卷宗管理系统1101.zip |
-- 发布时间：2017/11/3 16:52:00
--
采用帮助的方式处理二进制列：
http://www.foxtable.com/webhelp/scr/2950.htm
然后按照二楼的方式打印。
-- 发布时间：2017/11/3 17:00:00
-- 回复：（狐狸爸爸）采用帮助的方式处理二进制列：http...
这一步已经处理了 看来还是得先获取出来之后再加载进行打印啦
-- 发布时间：2017/11/3 17:10:00
-- 回复：（有点蓝）在报表事件里做：http://www.foxtabl...
SaleOrder(订单)和SaleOrderDetail(订单明细)帮助文件里面有这个解释
那么 If
e.Book.TempLate = "SalesInvoice"
Then 这个是啥意思呢？
-- 发布时间：2017/11/3 17:25:00
--
参考：
http://www.foxtable.com/webhelp/scr/1953.htm