۲۷-شهریور-۱۳۸۵, ۱۵:۰۵:۲۳
براي ارتباط برنامه با كريستال ريپورت 2 روش وجود دارد
اول آنتست كه در نوار منو Project و add Crystal Reports را زده و يا فايل جديد بسازيد يا فايل قبلي كريستال را open كنيد
دوم در يك فرم يك CRViewer1 قرار دهيد و در فرم لود بنويسيد
m_Report.RecordSelectionFormula
براي آنستك كه وقتي شما ميخواهيد ركوردهاي خاصي در گزارش شما باشد
بقول معروف فيلتر ميخواهيد بكنيد
وقتي شما در فايل كريستال ريپورت يك فيلد فرمول باز ميكنيد ميتوانيد از برنامه مقدار دهي كنيد
مثل كد زير
m_Report.FormulaFields(1).Text = "'" & Main.Tarikh & "'"
لطفا نظر بدهيد
اول آنتست كه در نوار منو Project و add Crystal Reports را زده و يا فايل جديد بسازيد يا فايل قبلي كريستال را open كنيد
دوم در يك فرم يك CRViewer1 قرار دهيد و در فرم لود بنويسيد
کد:
Dim Masir As String
Masir = App.Path + "\Crystal Reports\Tahod Nameh.rpt"
Set m_Report = m_Application.OpenReport(Masir, 1)
m_Report.RecordSelectionFormula = "{LC.N8No}='" + Lc.N8No.Text + "'"
m_Report.FormulaFields(1).Text = "'" & Main.Tarikh & "'"
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReportm_Report.RecordSelectionFormula
براي آنستك كه وقتي شما ميخواهيد ركوردهاي خاصي در گزارش شما باشد
بقول معروف فيلتر ميخواهيد بكنيد
وقتي شما در فايل كريستال ريپورت يك فيلد فرمول باز ميكنيد ميتوانيد از برنامه مقدار دهي كنيد
مثل كد زير
m_Report.FormulaFields(1).Text = "'" & Main.Tarikh & "'"
لطفا نظر بدهيد