چگونه باید یک رکوردست را به فست ریپورت ارسال کرد ؟

[butterfly8528]

سلام دوستان و اساتید گرامی .

چگونه باید یک رکورد ست رو برای ایجاد گزارش به فست ریپورت ارسال کرد ؟

برای مثال کد زیر رو برای ایجاد گزارش از روی رکوردست توسط دیتا ریپورت نوشتم ، لطفا برای تبدیل به فست ریپورت راهنماییم کنید :

Dim Cn As New ADODB.Connection

Dim Rs As New ADODB.Recordset



Private Sub Command1_Click()

    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password=123"

     

    Cn.Open

    Rs.CursorLocation = adUseClient

    Rs.Open "SELECT * FROM Table1 WHERE point > 500", Cn, adOpenStatic, adLockPessimistic

 

    Set DataGrid1.DataSource = Rs

    

    DataReport1.Sections("Section4").Controls("lblDate  ").Caption = Date

     

    With DataReport1.Sections("Section1")

        .Controls("txtName").DataField = "Name"

        .Controls("txtPoint").DataField = "Point"

    End With

    

    

    Set DataReport1.DataSource = Rs

    DataReport1.Show vbModal

    

    

    Set Rs = Nothing

    Set Cn = Nothing

End Sub

با تشکر .