0

3つのテーブルを含むデータベースがあります

Products テーブル Suppliers テーブル カテゴリ テーブル
ID ID ID
製品名 サプライヤー名 カテゴリ名
量 。.
サプライヤー ID 。.
カテゴリ ID
.
.

PredicateBuilder を使用して、選択した製品フィールド (数量、製品名...) に従って製品を選択しています。PredicateBuilder またはその他の方法を使用して、そのサプライヤ名またはカテゴリ名に従って製品を選択するには

VB.NET を使用しています C# の例をたくさん見ましたが、理解も翻訳もできません predicateBuilder で join を使用することを考えていますが、方法がわかりません!!!!

より明確にするために、たとえば次のように、1回の検索で複数のフィールドを組み合わせることが必要です。

名前に「s」が含まれ、数量が 10 未満で、SupplierName が Kimo である製品を教えてください

名前に「g」のみが含まれる製品を教えてください

カテゴリ名「機械」の商品を教えてください

.

.

また、この検索述語は変更可能です。各 Products テーブルには多くのフィールドがあるため、選択したフィールドに応じて動的に検索されます。

あなたの親切な助けを待っています。

アリオンの答えは正しかったと思いますが、何らかの修正が必要ですとにかく私はこの解決策を思いつきました、それは最も効率的なものではありませんが、私の問題を解決しました.

 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

For Each it In q それと

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

                End With

            Next

それで、あなたはどう思いますか、より良い方法はありますか？もちろんそうですか?ばかげた質問ですが、どこで?

4

1 に答える 1

0

だから私はこのようなことをします。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 データ コンテキストです。

于 2012-02-06T10:04:50.267 に答える