ActiveReport软件开发中遇到比较难的几个实际问题,盼高手解决!!!!

yzzjg 2006-03-14 05:42:04
小弟现在手上有个订单系统在做,要生成如下所示的一张报表
商品名称 颜色 1 2 3 4 5 6 7 8 9 10 小计(米/公斤)
产品1 白色 79.1 10 15 20 25 60 80 75 40 30 本列合计长度
10 20 30 40 50 60 70 80 90 100 本列合计公斤数

产品2............

产品3...........

产品4...........

1-10代表每条输入的记录我不知道怎么成这样的表detail区,是加group吗,最好说得详细点

还有一个问题,生成订单的时候,有时订购一个产品,产品下面就形成空白区,客户希望能打上空的单元格看到网上的介绍建立临时表,追加空记录,我觉得这样太麻烦,有没有其它的比较好的解决办法
...全文
286 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yzzjg 2006-03-31
如果数据量大于10条怎么办,也就是有换行的问题,唉,头疼呀,请尽快帮帮忙呀,谢谢了
回复
zerg2001 2006-03-17

用field,但不绑定到字段。
假设有十个field,分别是f1.......f10。

在Detail区的format中这样写:
Dim i As Long, S As String
Dim C As Object
Dim Rs As New ADODB.Recordset
Set Rs = DbConnection.GetRs("select 数值 from 表名 where 产品='" & 产品名 & "') '得到一个静态只读Recordset的函数,这部分自己写吧。

With Rs
For i = 1 To .RecordCount
.AbsolutePosition = i
S = Rs.Fields(0)
For Each C In Detail.Controls '因为AR不支持控件数组,只好用名称来搜索。
If C.Name = "F" & i Then
C.Text = S
Next
Next
End With

原理很简单吧。就是放弃报表数据控件的自动填充。用代码手动填充。
回复
yzzjg 2006-03-14
能不能说得详细点,而且,对于每一列数据来说,并不一定都刚好有10列数据的,其它的有可能是空行的,唉,搞死了
回复
zerg2001 2006-03-14
在Detail区的Format事件中写代码。填充1-10的数据。
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-14 05:42
社区公告
暂无公告