PredicateBuilder + Join + VB.NET

Question

У меня есть БД, которая содержит 3 таблицы

<b>Products Table          Suppliers  Table           Categories Table</b>
Id                      Id                         Id
ProductName             SupplierName               CategoryName
Quantity                .                          .
SupplierId              .                          .
CategoryId
.
.

Я использую PredicateBuilder, чтобы выбрать Продукт в соответствии с выбранным полем продукта (Количество, Имя продукта ...) Как я могу использовать PredicateBuilder или любой другой методвыбрать продукт в соответствии с его именем поставщика или категорией

Пожалуйста, я использую VB.NET Я видел много примеров C #, но не могу ни понять, ни перевести его, я думаю об использовании соединения в предикатеBuilder, но я не знаю как!!!!

Чтобы быть более понятным, я хочу объединить несколько полей в одном поиске, например:

Дайте мне продукт, где его имя содержит "s" и количество <10 и SupplierName - это Kimo </p>

Дайте мне продукт, имя которого содержит только "g"

Дайте мне продукты для категорииName "Machines"

.

.

И этот предикат поиска является изменяемым, потому что в каждой таблице продуктов есть много полей, поэтому поиск является динамическим в соответствии с выбранными полями

В ожидании васr доброй помощи.

Я думаю, что ответ Ариона был правильным, но он нуждается в некотором пересмотре. В любом случае, я придумала это решение, оно не самое эффективное, но оно решило мою проблему.

 Dim SupplierAlso As String = ""
 Dim CategoryAlso As String = ""
 Dim pred = PredicateBuilder.True(Of Products)()
 Select Case Entry
                        Case "Number"
                            Dim Inum = Entry
                            pred = pred.And(Function(m As products) m.ID.Equals(CInt(Inum)))

                        Case "ProductName"

                            Dim IName = Entry
                            pred = pred.And(Function(m As Products) m.ProductName.IndexOf(IName, StringComparison.OrdinalIgnoreCase) >= 0)

.,,Дело «Поставщик»

                            SupplierAlso = Entry

                        Case "Category"

                            CategoryAlso = Ent 

Далее

            Dim f As ProductsDataTable = Products.Product
            Dim tmp As IEnumerable(Of Products) = New ProductsDataTable().AsEnumerable()
            tmp = f.AsEnumerable.Where(pred.Compile)


            Dim qry

             If CategoryAlso = "" And SupplierAlso = "" Then
                q = (From prods In tmp
                      Join Cats In Categories
                      On prods.CategoryId Equals Cats.ID
                      Join Supps In Suppliers
                      On Supps.ID Equals prods.SupplierId
                      Select Supps.SupplierName, Cats.CategoryName, prods.ID _ 
                      , prods.ProductName,   prods.UnitPrice, prods.CategoryId _ 
                      , prods.SupplierId, prods.Location, _
                      prods.Description, prods.SellPrice, prods.CountInStock _ 
                      , prods.ProductionDate, prods.ExpiryDate, _
                      prods.ProductType, prods.ProductSeason).ToList

            ElseIf CategoryAlso <> "" And SupplierAlso <> "" Then

                q = (From prods In tmp
                      Join Cats In Categories
                      On prods.CategoryId Equals Cats.ID
                       Join Supps In Suppliers
                       On Supps.ID Equals prods.SupplierId
                       Where Cats.CategoryName.IndexOf((CategoryAlso)  
                 ,  StringComparison.OrdinalIgnoreCase) >= 0 And _                                Supps.SupplierName.IndexOf((SupplierAlso), _ 
                      StringComparison.OrdinalIgnoreCase) >= 0
                      Select Supps.SupplierName, Cats.CategoryName, prods.ID, _  
                     prods.ProductName, prods.UnitPrice, prods.CategoryId, _ 
                     prods.SupplierId, prods.Location, _
                      prods.Description, prods.SellPrice, prods.CountInStock,  _ 
                      prods.ProductionDate, prods.ExpiryDate, _
                      prods.ProductType, prods.ProductSeason).ToList

            ElseIf SupplierAlso <> "" And CategoryAlso = "" Then

                q = (From prods In tmp
                        Join Cats In Categories
                        On Cats.ID Equals prods.CategoryId
                        Join Supps In Suppliers
                        On prods.SupplierId Equals Supps.ID Where _ 
                         Supps.SupplierName.IndexOf((SupplierAlso),  _ 
                         StringComparison.OrdinalIgnoreCase) >= 0
                        Select Cats.CategoryName, Supps.SupplierName, prods.ID,  _ 
                        prods.ProductName, prods.UnitPrice, prods.CategoryId, _ 
                        prods.SupplierId, prods.Location, _
                        prods.Description, prods.SellPrice, prods.CountInStock, _  
                        prods.ProductionDate, prods.ExpiryDate, _
                        prods.ProductType, prods.ProductSeason).ToList

            ElseIf CategoryAlso <> "" And SupplierAlso = "" Then

                q = (From prods In tmp
                        Join Cats In Categories
                        On prods.CategoryId Equals Cats.ID Where Cats.CategoryName.IndexOf _ 
                        ((CategoryAlso), StringComparison.OrdinalIgnoreCase) >= 0
                        Join Supps In Suppliers On Supps.ID Equals prods.SupplierId
                        Select Supps.SupplierName, Cats.CategoryName, prods.ID, _ 
                        prods.ProductName, prods.UnitPrice, prods.CategoryId, _ 
                        prods.SupplierId, prods.Location, _
                        prods.Description, prods.SellPrice, prods.CountInStock, _ 
                        prods.ProductionDate, prods.ExpiryDate, _
                        prods.ProductType, prods.ProductSeason).ToList

            End If

Для каждого он в q С ним

                    DataGridView2.Rows.Add _ 
                   ({.ID, .ProductName, .UnitPrice, .categoryname, .suppliername, .Location, _
                                            .Description, .SellPrice, .CountInStock, _                                                .ProductionDate, .ExpiryDate, _
                                            .ProductType, .ProductSeason})

                End With

            Next

Так что вы думаете, есть ли лучший способ?Конечно, да? Глупый вопрос, но где?

Answer 1

Так что я бы тогда сделал что-то подобное. Я упростил утверждения where, но думаю, вы поймете мою точку зрения:

dim checkCategoryName as boolean=true
dim checkSupplier as boolean=true
dim checkQuantity as boolean=true
dim query= db.Products.Select (function(p) p)
if checkCategoryName then
    query=query _ 
            .Where (function(p) db.Categories.Where (function(c) c.CategoryName="??" ) _ 
            .Select (function(c) c.Id) _ 
            .Contains(p.CategoryId))
end if
if checkSupplier then
    query=query _ 
            .Where (function(q) db.Suppliers.Where (function(s) s.SupplierName="??") _ 
            .Select (function(s) s.Id) _ 
            .Contains(q.SupplierId))
end if
if checkQuantity then
    query=query.Where (function(q) q.Quantity<10)
end if
dim result=query.ToList()

Где db - контекст данных linq.