[saad mahyoub]

السلام عليكم ورحمة الله وبركاتة
ارجو التعديل علي كود البحث هذا بحيث استطيع استخدام SqlMethods.Like

كود :

SrchResult للمتغيير

كود :

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

ولكم كل الشكر

[saad mahyoub]

الرجاء المساعدة