2013-03-01 57 views
2

我想在vb.net中的水晶報表中顯示一個字段,我想在此文本框中顯示vb.net表單中的文本框的值。如何通過vb.net中的文本框在crystalreport中傳遞textfield中的值

我製作了名爲「prog_user」的參數,並將其設置爲textbox.text的值,但不顯示任何內容。

繼承人我的代碼,我把它放在report_viewer_shown事件在vb.net

Dim crpath, filepath As String 



     Private Sub rpt_viewer_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown    

         cryrpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument() 
         crpath = "D:\LEGAL\NLRC_new_022213\NLRC" 
         filepath = crpath & "\Legal Records.rpt" 
         cryrpt.Load(filepath) 

         cryrpt.RecordSelectionFormula = "{Command.CaseNo} = " & case_no 
         crviewer.ReportSource = cryrpt 

         Legal_Records1.SetParameterValue("prog_user", textbox1.text) 
         crviewer.Refresh() 

end sub 

可能是什麼,如果這個問題?我的水晶報表中的其他數據顯示數據庫中的正確值。

回答

2

嘗試添加值

With cryrpt 
    .ParameterFields("prog_user").CurrentValues.Clear() 
    .ParameterFields("prog_user").CurrentValues.Add(Textbox1.text) 
End With 
之前將其清除
0

嘗試這樣的事情

cryrpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument() 
crpath = "D:\LEGAL\NLRC_new_022213\NLRC" 
filepath = crpath & "\Legal Records.rpt" 
cryrpt.Load(filepath) 

cryrpt.RecordSelectionFormula = "{Command.CaseNo} = " & case_no 
cryrpt.ParameterFields("prog_user").CurrentValues.Clear() 
cryrpt.ParameterFields("prog_user").CurrentValues.Add(textbox1.text) 

crviewer.ReportSource = cryrpt 
crviewer.Refresh() 
0

這將工作使用文本信息。與CR:

Dim report As New CrystalReport1 
    Dim objText As CrystalDecisions.CrystalReports.Engine.TextObject = report.ReportDefinition.Sections(1).ReportObjects("Text1") 
    objText.Text = Me.TextBox1.Text 
    FrmPrint.CrystalReportViewer1.ReportSource = report 
    FrmPrint.Show() 
相關問題