[كود] تعديل الكود - نسخة قابلة للطباعة

كود :
Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click

        Dim SrchResult = From k In datatest.Orders Select k

        Dim flag As Boolean = False

        SearchResultGrid.Controls.Clear()

        Try

            If OrderDatetxt.Text <> Nothing Then

                flag = True

                SrchResult = SrchResult.Where(Function(p) p.OrderDate = CDate(OrderDatetxt.Text))

            End If

     If flag = False Then

                MessageBox.Show("Please Select A Criteria For Search", "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Exit Sub

            End If

            If SrchResult.Any Then

                SrchResult = SrchResult.OrderBy(Function(k) k.CustomerID)

                SearchResultGrid.DataSource = SrchResult

            Else

                MessageBox.Show("There Is No Record That Matchs Your Criteria.", "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch Ex As Exception

            MessageBox.Show(Ex.Message, "LINQ Advanced Search", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub