高分征解!Active Report问题：如何根据查询自动向报表中添加字段

zhengsb 2001-06-21 11:03:00

如题

...全文

227 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhengsb 2001-06-21

打赏
举报

to everyask(everyask);
其实我以前做报表都是用excel，不过比较肤浅，想向你讨教几个问题：
1.如何在程序中设置表格边框线的虚实
2。如何在程序中设置顶端标题行
3。如何在程序中设置页眉/页尾

zhengsb 2001-06-21

打赏
举报

to wyo(╰☆╮╰☆╮╰☆╮):
能发一个例子吗　?

zhengsb 2001-06-21

打赏
举报

wyo 2001-06-21

打赏
举报

把查询写入表格，ACTIVEREPORT可以完全根据表格的格式打印出报表

everyask 2001-06-21

打赏
举报

如果感觉用VBA实现这些功能过于麻烦，恐怕只能用printer对象了。
现在好象没有哪一种报表控件支持动态字段。

zhengsb 2001-06-21

打赏
举报

对于报表中的字段标题又如何处理呢？

everyask 2001-06-21

打赏
举报

如果内容较多，也可以用宏进行表头或表尾复制

everyask 2001-06-21

打赏
举报

不能在页眉、页脚中加入吗？

zhengsb 2001-06-21

打赏
举报

Excel是方便，但是对于每页都输出表头.表尾就不那么方便了.

everyask 2001-06-21

打赏
举报

另外用printer对象实现这种功能也是很容易的。

everyask 2001-06-21

打赏
举报

看来还是excel比较灵活，可以让用户自己增加或删除字段，并随意对报表加以修改或修饰。

zhengsb 2001-06-21

打赏
举报

activereport或datareport不限，只要能实现即可

zhengsb 2001-06-21

打赏
举报

我的意思是：在运行时根据查询的结果自动添加字段，查询结果中字段的数目不定。

everyask 2001-06-21

打赏
举报

搞混了，activereport不是datareport。

Salas 2001-06-21

打赏
举报

在COMMAND1属性中设置SQL语句啊~~~~~~~在通用选项中选取SQL语句,然后加如查询:select xxx,yyy from table where (zzz=?)
然后在开1个FORM,输入ZZZ的值:
If IsNumeric(Text1.Text) = True Then
DataEnvironment1.Command1 Text1.Text
DataReport1.Show
Else:
MsgBox "fail", vbExclamation + vbOKOnly
end if

zhengsb 2001-06-21