+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عدد شركات الاصناف بالداتاجريدفيو (/showthread.php?tid=28209)
عدد شركات الاصناف بالداتاجريدفيو - محمد اسماعيل - 12-01-19
السلام عليكم
عندي جدول بقاعدة البيانات لشركات وجدول للمنتجات الخاصة بكل شركة والمنتجات تاخذ سريال محدد ياخذ احرف محددة لكل شركة متزايدة
بمعني كل شركة تاخذ كود معين مثلا شركة التوحيد : المنتجات تاخذ اكواد متزايدة ds2,ds3,ds4
وشركة الحمد :المنتجات تاخذ اكواد متزايدة se2,se3,se4
ما اريدة هو عدد الشركات من جدول بناء علي شرطين اولهما الاكواد ds2,ds3,ds4 لشركة التوحيد تعتبر شركة واحدة
ثانيا استبعاد الشركة اذا كان عدد المنتجات بالمخزن الخاص بيها = صفر
[attachment=20611]
عدد الشركات بالمثال السابق 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