hamideh_m
چهارشنبه 14 مهر 1389, 22:48 عصر
سلام
من براي فيلتر كردن گزارش 1 textboxگذاشتم كه با وارد كردن مقدار موردنظر ركوردهاي گزارشو فيلتر كنه
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class ezoj
Private Sub ezoj_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
CrystalReportViewer1.DisplayGroupTree = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rpt As New ezj
If TextBox1.Text <> "" Then
rpt.RecordSelectionFormula = "{ezoj.ntartib}='" + TextBox1.Text + "'"
CrystalReportViewer1.ReportSource = rpt
End If
End Sub
End Classايراد ميگيره
عكسشو گذاشتم
من براي فيلتر كردن گزارش 1 textboxگذاشتم كه با وارد كردن مقدار موردنظر ركوردهاي گزارشو فيلتر كنه
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class ezoj
Private Sub ezoj_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
CrystalReportViewer1.DisplayGroupTree = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rpt As New ezj
If TextBox1.Text <> "" Then
rpt.RecordSelectionFormula = "{ezoj.ntartib}='" + TextBox1.Text + "'"
CrystalReportViewer1.ReportSource = rpt
End If
End Sub
End Classايراد ميگيره
عكسشو گذاشتم