- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教 报表 可以引用 SQL数据库中的 图片列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65830)
-- 发布时间：2015/3/24 10:09:00
-- 请教 报表 可以引用 SQL数据库中的 图片列
早上好
做报表，想引用 数据库的中图片列 到报表中
可行吗？
多谢！
-- 发布时间：2015/3/24 10:13:00
--
如果是二进制列，必须先下载到本地，才能引用。
你可以做个生成报表的按钮，通过这个按钮先下载图片到本地，然后生成报表。
如果是内置的ftp列，可以在报表直接引用，foxtable在生成报表之前，会自动下载图片。
-- 发布时间：2015/3/24 10:14:00
--
多谢！我去试试。。
-- 发布时间：2015/3/24 11:45:00
--
If Tables("报价流水记录表").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("报价流水记录表").Current.DataRow
Dim fl As String = dr("酒店产品序列号") & ".png"
If dr.SQLLoadFile("产品图片",fl) Then \'如果提取文件成功
Dim Proc As New Process \'打开文件
Proc.File = fl
Proc.Start()
保存到指定文件夹中，，这代码怎么写
Else
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
感谢大家
-- 发布时间：2015/3/24 11:49:00
--
呵呵，作为第一批用户，不能总是机械复制代码了，要知其所以然哦：
If Tables("报价流水记录表").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("报价流水记录表").Current.DataRow
Dim fl As String = projectpath & "Attachments\\" & dr("酒店产品序列号") & ".png"
If dr.SQLLoadFile("产品图片",fl) Then \'如果提取文件成功
\'生成报表
Else
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
[此贴子已经被作者于2015/3/24 11:51:43编辑过]
-- 发布时间：2015/3/24 11:59:00
--
哎，说来羞愧。。。。。。努力理解学习中。
-- 发布时间：2016/11/9 22:38:00
--
