水晶报表9.0在VB中的使用

Question

在VB中如何将窗体中TEXT控件中的值,输出到水晶报表中.

Answer 1

不会吧,CSDN上没有高手了吗,再加50分!!!

Answer 2

Dim t As TextObject
     Set t = Report.Sections(2).ReportObjects(4)
     
     t.SetText ("adfs")

Answer 3

Dim CryApp As New CRAXDDRT.Application
    Dim Report As CRAXDDRT.Report
    
    Dim strCnn As String
    Set Report = CryApp.OpenReport(App.Path & "\report2.rpt")    Dim cnn1 As New ADODB.Connection
    Dim adoRS As New ADODB.Recordset
    
    strCnn = "Provider=sqloledb;Data Source=abrams;Initial Catalog=salestesttmp;User Id=sa;Password=test;"
    cnn1.Open strCnn
    
    adoRS.Open "select top 10 * from answers", cnn1, adOpenDynamic, adLockBatchOptimistic
    Report.Database.SetDataSource adoRS
Dim t As TextObject
     Set t = Report.Sections(2).ReportObjects(4)
     
     t.SetText ("adfs")