منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود جمع صنف داخل القريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود جمع صنف داخل القريد فيو (/showthread.php?tid=25669)



كود جمع صنف داخل القريد فيو - نور الهدى الهدى - 08-07-18

السلام عليكم 

مطلوب كود جمع صنف او أسم داخل القريد فيو وليس داخل القاعدة 

متلا في العمود الثالث احتاج جمع أسم elgokr
وقصدت elgokr لانه دئما سباق في مساعدة الجميع وله كل التقدير والاحترام 


RE: كود جمع صنف داخل القريد فيو - نور الهدى الهدى - 08-07-18

(08-07-18, 05:46 PM)Amir_alzubidy كتب :
السلام عليكم و حمة الله 
اهلا بكم اخواني الكرام
اتمنى ان يكون هو المطلوب 
PHP كود :
   Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim i 
As Integer 0
        Dim x 
As Integer 0
        For i 
0 To DataGridView1.Rows.Count 2
                If DataGridView1
.Rows(i).Cells(0).Value.ToString.Contains(TextBox1.TextThen
                    x 
1
                End 
If
 
       Next
        MsgBox
(x)
 
   End Sub 

هذا المطلوب اشكرك اخي أمير


RE: كود جمع صنف داخل القريد فيو - نور الهدى الهدى - 08-07-18

السلام عليكم 
لكن الكود غير دقيق في البحث متلا موافق او غير موافق يقوم بجمعهم الرجاء التأكد


RE: كود جمع صنف داخل القريد فيو - نور الهدى الهدى - 09-07-18

(08-07-18, 08:19 PM)Amir_Alzubidy كتب : تعديل الكود : 
PHP كود :
       Dim x As Integer 0
        For i 
0 To DataGridView1.Rows.Count 2
            If RadioButton1
.Checked True Then
                If DataGridView1
.Rows(i).Cells(0).Value.ToString TextBox1.Text Then
                    x 
1
                End 
If
 
           End If
 
       Next
        MsgBox
(x)
 
   End Sub 

وفقك الله مشرفنا الغالي