Question

vb中怎么做报表？

我是用DataReport控件做的，谁能教我怎么实现吗？谢谢!

Answer 1

核心代码：Requery方法!
也可以直接使用ADODB.Recordset!不使用DataEnvironment!例:
...
public adoRecordsetX as ADODB.Recordset
...

Private Sub DataReport_Initialize()
adoRecordsetX.Requery
Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
...
'绑定某字段
Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name
...
End Sub
wuxiaoqiang的意见：
在你们有关上述问题的回答，我想再增加一种更简单的解决办法。
1.在datareport 报表中设置datamember和datasource为空。
2.将以前绑定的RptTextBox的datamember设为空，保留原来的datafield.
3.在打印操作中增加以下代码：
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.path + "\finance.mdb" + ";"

Set tb = New Recordset
tb.Open "select * from dailyfeeprint", db, adOpenStatic, adLockOptimistic
With tb

.AddNew
![工号] = Combo1(0).Text
![姓名] = txtFields(0).Text
![交费日期] = txtFields(1).Text
.........
.Update
End With

Set data1.Recordset = tb

Set datareport1.DataSource = data1
datareport1.Show
datareport1.PrintReport

Answer 2

用一个表格控件和datdgrid联合使用，作报表也很灵活的

Answer 3

使用EXCEL和VB做也不错，好像更好看的，需要源码的话去源码中国找找。