paysokhan
سه شنبه 31 شهریور 1388, 22:04 عصر
با این کد می توان در text یک کلمه را داد و جستجو کرد و در گزارش چاپ کرد
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Set crRept = crApp.OpenReport(App.Path & "\Reporkoli.Rpt") 'Report File
crRept.RecordSelectionFormula = "{bank.namehami}='" & XPText1.Text & "'"
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
حالا
می خواهم رکودهای خالی در این فیلد را چاپ کنم از چه دستوری استفاده کنم
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Set crRept = crApp.OpenReport(App.Path & "\Reporkoli.Rpt") 'Report File
crRept.RecordSelectionFormula = "{bank.namehami}='" & XPText1.Text & "'"
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing
حالا
می خواهم رکودهای خالی در این فیلد را چاپ کنم از چه دستوری استفاده کنم