水晶报表问题

Question

我第一次接触水晶报表,我用vb+水晶9.2的环境,查了很多网站都说要用什么自定义字段,可我设置了没有反应,反而直接加入我的access数据库反而正常,可以出报表了， 我设置只打一条记录,现在也只能打最新的一条了,我现在的窗体都正常了,就这报表查了很多网站都没有资料,谁能告诉我到底改怎么弄,代码该如何写,才能让我可以查询后把结果输入到指定的模板上?如果有好心人愿意单独教我的话,我的QQ57495043.

Answer 1

'注意报表1.rpt自己设计 是水晶报表文件Private objCRApp As New CRAXDRT.Application    '水晶报表应用程序对象
Private objCRReport As New CRAXDRT.Report             '报表对象
Dim rs As ADODB.Recordset
Dim msgtext As StringPrivate Sub cmdsearch_Click()  '清除报表中保持的数据
  objCRReport.DiscardSavedData
  '形成数据集
  '单个表适合用sql语句
  strsql = "select * from clerk where clerk_bm='" & Combo1.Text & "'"
  '注意：多个表筛取数据 必须要用视图，是数据形成一个表，水晶报表不能用sql语句
  'strsql="select * from a,b where a.a1=b.a1" '水晶报表不支持这样的sql语句
  'strsql = "select * from clerk_organ_view where clerk_bm='" & Combo1.Text & "'"
  Set rs = ExecuteSQL(strsql, msgtext)   'Executesql是执行sql语句，你可以自己写
  '赋给报表数据
  objCRReport.Database.SetDataSource rs
  CRViewer91.ReportSource = objCRReport  '指定报表来源
  CRViewer91.ReportSource = objCRReport
  '显示报表
  CRViewer91.ViewReport
End SubPrivate Sub Form_Load()
  Dim strsql As String
  strsql = "select distinct clerk_bm from clerk"
  Set rs = ExecuteSQL(strsql, msgtext)
  Do While Not rs.EOF
     Combo1.AddItem rs(0)
     rs.MoveNext
  Loop
  
  '加载报表模板
  '单个数据表形成的报表
  Set objCRReport = objCRApp.OpenReport(App.Path & "\1.rpt", 1)
  '多个数据表形成的报表
  Set objCRReport = objCRApp.OpenReport(App.Path & "\2.rpt", 1)
  
End SubPrivate Sub Form_Resize()
'  CRViewer91.Top = 50
'  CRViewer91.Left = 0
'  CRViewer91.Height = ScaleHeight - Combo1.Height
'  CRViewer91.Width = ScaleWidth
End Sub