or
<WebGet()> _Public Function Search(price As Integer) As IQueryable(Of tblCustomers) Dim context As OnlmCRMEntities = Me.CurrentDataSource Try Dim customers = From c In context.tblCustomers Where c.fldActive = True _ And c.tblCustomerProducts.Any(Function(s) s.fldPrice = price And s.fldActive = True) Order By c.fldEmail Select c Return customers Catch ex As Exception Throw New ApplicationException("An error occurred: {0}", ex) End TryEnd FunctiondataSource: { type: "odata", transport: { read: pathname + "/model/WcfData.svc/Search?price=6000" }, pageSize: 20, serverPaging: true, serverFiltering: true, serverSorting: true }