26-02-18, 10:35 PM
السلام عليكم ورحمة الله وبركاتة
ارجو التعديل علي كود البحث هذا بحيث استطيع استخدام SqlMethods.Like
ولكم كل الشكر
ارجو التعديل علي كود البحث هذا بحيث استطيع استخدام 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