条件查询水晶报表输出

[87207688]

如何将在Access2000中的条件查询得到的数据，输出到水晶报表中打印出来

Sql = "select * from 用户购买 where 操作员= '" & cmb操作员.Text & "'"
CrystalReport1.SQLQuery = Sql
CrystalReport1.DiscardSavedData = True

[LCAAA]

s = "SELECT 职工编号, 姓名,性别,出生日期, 民族,政治面目,文化程度,职务,参加工作日期,职称等级,身份证号,部门,籍贯,'" & ComputerName & "','" & glid & "'"
s = s & " FROM 人事档案 where (人事档案.姓名 is not null)"
s = s & " ORDER BY 人事档案.职工编号"
cn.Execute "INSERT INTO p_人事档案 ([s1], [s2], [s3], [s4], [s5], [s6], [s7],[s8],[s9],[s10],[s11],[s12],[s13],username,glid) " & s
Unload rptform
rptform!Report1.ReportFileName = ReportPath & "ryflb.rpt"
rptform!Report1.Connect = "DSN=empl;UID=" & loginuid & ";PWD=" & userpwd & ";"
rptform!Report1.SelectionFormula = "{p_人事档案.glid}=" & Val(glid) & " and {p_人事档案.username}='" & ComputerName & "'"
rptform!Report1.Action = 1

[Colin_Qin]

建议你按这样步子来作：
1、建报表。选择 ADO and OLE DB键接。
2.在VB创建新键接,与记录集。
Dim miConn As ADODB.Connection
Dim rs As New ADODB.Recordset
miConn.open""
LockType = adLockReadOnly
.CursorLocation = adUseClient
.Source = "select * from xxx"
.Open
记住这此的记录集要与建表是的记录集相同。
3. Report.Database.SetDataSource rs, 3

[87207688]

帮忙 再解释一下