If txtSearchString.Text.Trim <> "" Then
Dim searchString As String = txtSearchString.Text.Trim
Dim results As EnumerableRowCollection(Of DataRow) = From PO In FilterPurchaseOrders().AsEnumerable() _
Where PO("Title") Like searchString Or PO("PONumber") Like searchString _
Or PO("Remarks") Like searchString Or PO("Note") Like searchString _
Or PO("Vendor") Like searchString Or PO("ShipTo") Like searchString _
Or PO("Lookup") Like searchString Or PO("BillTo") Like searchString _
Or PO("Status") Like searchString Or PO("Choice") Like searchString _
Select PO
rgPurchaseOrders.DataSource = results
End If
I am getting this error: error BC30205: End of statement expected.
FilterPurchaseOrders() function returns a datatable.
Whats wrong with the above code?