[محمد اسماعيل]

السلام عليكم

عندي جدول بقاعدة البيانات لشركات وجدول للمنتجات الخاصة بكل شركة والمنتجات تاخذ سريال محدد ياخذ احرف محددة لكل شركة متزايدة

بمعني كل شركة تاخذ كود معين مثلا شركة التوحيد : المنتجات تاخذ اكواد متزايدة ds2,ds3,ds4

وشركة الحمد :المنتجات تاخذ اكواد متزايدة se2,se3,se4

ما اريدة هو عدد الشركات من جدول  بناء علي شرطين اولهما الاكواد ds2,ds3,ds4  لشركة التوحيد تعتبر شركة واحدة
ثانيا استبعاد الشركة اذا كان عدد المنتجات بالمخزن الخاص بيها = صفر


   

عدد الشركات بالمثال السابق 3 ولكن نستبعد شركة الحمد لان مخزن والعدد = 0

حاولت بالكود التالي ولم يظبط معي

كود :

 Dim lsName As List(Of String) = New List(Of String)()

       For i As Integer = 0 To DATAGRID.Rows.Count - 1
           Dim name As String = (DATAGRID.Rows(i).Cells(2).Value.ToString()).Substring(0, 2)
           If lsName.Contains(name) Andalso DATAGRID.Rows(i).Cells(4).Value < 1 Then
               Continue For
           Else
               lsName.Add(name)
           End If
       Next