FilterString فى تقرير DevExpress - نسخة قابلة للطباعة

PHP كود :
Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraReports.Parameters
Imports DevExpress.XtraEditors
Public Class BookingReportFor

    Private Sub ButtonX1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Dim report As New XtraReport1
        Dim comboindex As Byte = ComboBoxEx1.SelectedIndex
        Dim comboindex2 As Byte = ComboBoxEx2.SelectedIndex
        Dim comboString As String
        Dim comboString2 As String
        Dim param1 As New Parameter()
        param1.Name = "Total"

    
        Select Case comboindex
            Case 0
                comboString = "[BookID]"
                If String.IsNullOrWhiteSpace(TextBoxX1.Text) Or Not IsNumeric(TextBoxX1.Text) Then
                    MsgBox("القيمة التى قمت بادخالها غير صحيحة!")
                    Exit Sub
                End If
                param1.Type = GetType(System.Decimal)
            Case 1
                comboString = "[BookDay]"
                If String.IsNullOrWhiteSpace(TextBoxX1.Text) Or Not IsDate(TextBoxX1.Text) Then
                    MsgBox("القيمة التى قمت بادخالها غير صحيحة!")
                    Exit Sub
                End If
                param1.Type = GetType(System.DateTime)
            Case 2
                comboString = "[BookValue]"
                If String.IsNullOrWhiteSpace(TextBoxX1.Text) Or Not IsNumeric(TextBoxX1.Text) Then
                    MsgBox("القيمة التى قمت بادخالها غير صحيحة!")
                    Exit Sub
                End If
                param1.Type = GetType(System.Decimal)
            Case 3
                comboString = "[SerValue]"
                If String.IsNullOrWhiteSpace(TextBoxX1.Text) Or Not IsNumeric(TextBoxX1.Text) Then
                    MsgBox("القيمة التى قمت بادخالها غير صحيحة!")
                    Exit Sub
                End If
                param1.Type = GetType(System.Decimal)
            Case 4
                comboString = "[DownValue]"
                If String.IsNullOrWhiteSpace(TextBoxX1.Text) Or Not IsNumeric(TextBoxX1.Text) Then
                    MsgBox("القيمة التى قمت بادخالها غير صحيحة!")
                    Exit Sub
                End If
                param1.Type = GetType(System.Decimal)
            Case 5
                comboString = "[Total]"
                If String.IsNullOrWhiteSpace(TextBoxX1.Text) Or Not IsNumeric(TextBoxX1.Text) Then
                    MsgBox("القيمة التى قمت بادخالها غير صحيحة!")
                    Exit Sub
                End If
                param1.Type = GetType(System.Decimal)
        End Select
        param1.Value = TextBoxX1.Text
        param1.Description = "Total: "
        param1.Visible = True

        Select Case comboindex2
            Case 0
                comboString2 = " > "
            Case 1
                comboString2 = " >= "
            Case 2
                comboString2 = " < "
            Case 3
                comboString2 = " <= "
            Case 4
                comboString2 = " = "
        End Select

        report.Parameters.Add(param1)

        report.FilterString = comboString & comboString2 & "[Parameters.Total]"

          
        report.RequestParameters = False

               Dim pt As New ReportPrintTool(report)
        pt.AutoShowParametersPanel = False
        pt.ShowPreviewDialog()

    End Sub
End Class