vb动态生成数据报表问题

[zuizhu]

我写了个数据库管理程序。我想把用SQL查询出来的信息打印出来，但是由于查询的信息的字段数目是不定的。所以不能在设计时指定RptTextBox控件的数量，所以只能在运行时候根据所查询的信息字段数目动态生成报表。我使用的数据对象是[Ado]，（DataReport对象没有提供像Form对象似的Controls.Add方法进行动态添加控件的方法）请问各位高手，我该如何生成这张报表呢？不甚感激！
另：可以使用[Excel]对象吗？如何使用呢？

[HeatLoad]

祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺 祝贺

Microshaoft (大舌头)

[powpow]

'动态生成Field，并给它附属性。这个是ActiveReport的例子，DataReport有没有就不知到了，我没用过DataReprt
Dim oCtrl As Object
Set oCtrl = ActiveReport.Sections("Detail").Controls.Add("DDActiveReports2.Field")
With oCtrl
.Name = "Field1"
.Height = 300
.Width = 6000
.Top = 0
.Left = 0
.DataField = "ID"
End With

[Tsou]

我摘录一篇文章(1.2M),你的email

[zuizhu]

感谢Tsou同志的技术支持
[e-mail]
谢谢你,感激不尽

[Tsou]

已mail

[playyuer]

99年写的拙作:
vb 6之数据报表使用技巧
http://media.ccidnet.com/media/ciw/871/b1301.htm

DataReport 程序
http://www.triaton.com.cn/Private/Zip/DatRpt.zip

用 DataReport 打印 DataGrid
http://www.triaton.com.cn/Private/Zip/DatGrdRpt.zip

格式化 DataReport 数据
http://www.triaton.com.cn/Private/Zip/FmtDatRpt.zip

[hongtao924]

也给我一份,谢谢
[e-mail]