- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表 / 数据绑定 / 多层分组 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48582)
-- 发布时间：2014/4/1 12:30:00
-- 专业报表 / 数据绑定 / 多层分组
学习专业报表 - 数据绑定 - 多层分组，请问版主，怎么达到如图效果？
此主题相关图片如下：01270.png
-- 发布时间：2014/4/1 12:33:00
--
不可以，不要用绑定，直接编码逐行增加，更灵活，更简单
-- 发布时间：2014/4/1 12:40:00
--
狐爸：应该参考帮助说明中的那一块内容？
-- 发布时间：2014/4/1 12:47:00
--
编码生成：
Dim doc As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows
Dim rt As New prt.RenderText
rt.Text = r("数量")
rt.Width = 19 \'宽度为19毫米
rt.Height = 8 \'宽度为8毫米
doc.body.Children.Add(rt)
Next
doc.Preview()
提示： 要指定对象的尺寸才行
-- 发布时间：2014/4/2 11:52:00
--
我把文本列改成图片列，以下代码为什么错了？
Dim doc As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows
Dim rt As New prt.RenderImage
rt.Image = r("图片")
rt.Width = 19 \'宽度为19毫米
rt.Height = 8 \'宽度为8毫米
doc.body.Children.Add(rt)
Next
doc.Preview()
-- 发布时间：2014/4/2 11:55:00
--
Dim doc As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows
Dim rt As New prt.RenderImage
rt.Image = GetImage(r("图片"))
rt.Width = 19 \'宽度为19毫米
rt.Height = 8 \'宽度为8毫米
doc.body.Children.Add(rt)
Next
doc.Preview()
-- 发布时间：2014/4/2 12:10:00
--
如果只提取客户是CS01,日期是今天的图片，代码该怎么写？
-- 发布时间：2014/4/2 13:55:00
--
如果只提取客户是CS01,日期是今天的图片，代码该怎么写？
如下代码
Dim doc As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each dr As Row In DataTables("订单").Select("客户 = \'CS01\' and 日期 = #" & Date.Today & "#", Tables("订单").Filter)
Dim rt As New prt.RenderImage
rt.Image = GetImage(dr("图片"))
rt.Width = 19 \'宽度为19毫米
rt.Height = 8 \'宽度为8毫米
doc.body.Children.Add(rt)
Next
doc.Preview()
-- 发布时间：2014/4/2 14:26:00
--
显示编译错误
-- 发布时间：2014/4/2 14:28:00
--
提示什么错?