ARViewer使用帮助

[fly_rain]

我在一个窗体中已经放了个ARViewer按件，并做了一个报表rptReport,
问题1：如何让窗体中ARViewer显示rptReport，而不是弹出一个新的rptReport报表窗口。
问题2：如何用rptReport中的ADO连接数据库"DBQ=" + App.Path + "\data.mdb;DRIVER={Microsoft Access Driver (*.mdb)};"
问题3：如何设置报表的数据源为"select field1,sum(field2) as sumfield from table1 where field3="+text1.text+"group by field1"
问题4：如何把报表中的数据根据上面的查询语句显示出来。（报表detail中已放置好field1和field2用于显示上面查出来的field1和sumfield）
问题5：如何把数据连接关闭

从来没用过ARviewer请帮忙教一下。

[fly_rain]

问题基本解决了，谁帮忙UP一下，接分~~~明天结账
我是用dim x as rptreport
set x= new rptreport
arviewer1.object=x
解决第一问题
rst.MoveFirst
x.DataControl1.Connection = conn1
解决第二个问题
x.DataControl1.Recordset = rst
解决第三个问题
x.Field1.DataField = rst("department_Name")
x.Field1.Text = rst("department_Name")
解决第四个问题
conn1.close
解决第五个问题
谁有更好的办法，请指教，谢谢

[SuperZhou]

只对于你的第一个问题给予答复：
问题1：rptInvoice.Pages.Load App.Path & "\SavedReport.rdf"
rptInvoice.Show


其它的问题可以看看Activereport的帮助文件,很详细的。

[fly_rain]

Command5.Visible = False
Command1.Caption = "退出预览"
rptReport.Label31.Caption = CStr(DTPicker1.Value)
rptReport.Label31.Caption = CStr(DTPicker2.Value)
ConnOpen
Set Rs = New ADODB.Recordset
SQL = "select Department.department_name,sum(myData.诊疗人次数) as 诊疗人次数,sum(myData.门诊人次数) as 门诊人次数 "
SQL = SQL + "FROM Department INNER JOIN myData ON Department.Department_ID = myData.department_ID "
SQL = SQL + "where myData.mydate>=#" + CStr(DTPicker1.Value) + "# and myData.mydate<=#" + CStr(DTPicker2.Value) + "# "
If Trim(Combo1.Text) <> "所有科室" Then
SQL = SQL + " and Department.department_name='" + Combo1.Text + "'"
End If
SQL = SQL + " GROUP BY Department.Department_Name"
Rs.Open SQL, Conn, 1, 1
If Not (Rs.EOF And Rs.BOF) Then
Rs.MoveFirst
End If
Dim x As rptReport
Set x = New rptReport
x.Label31.Caption = CStr(DTPicker1.Value)
x.Label32.Caption = CStr(DTPicker2.Value)
x.DataControl1.Connection = Conn
x.DataControl1.Recordset = Rs
If Not (Rs.EOF And Rs.BOF) Then
x.Field1.DataField = Rs("department_Name")
x.Field2.DataField = Rs("诊疗人次数")
'x.Field1.Text = Rs("department_Name")
End If
Set ARViewer1.Object = x
Set x = Nothing
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

为什么又出问题了，拷，原来记录都显示好了呀，怎么现在又不显示数据了。帮我看看问题出在那，谢了

[fly_rain]

帮助文件是英文啊，老大，别为难我了~~~~

[fly_rain]

找到问题了，就是rs和conn不能close。一close就不行了。。。请有好办法，教教我。