+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=20509)
كيف يمكن ان اعمل هذا - rabeh.ram - 23-05-17
لدي listbox بها 31 سطر كل سطر يحتوي على قيمة معينة اريد ان املى datagridview من خلال هذا listbox بحيث تشغل سطور العمود الثاني (VAL) من datagridview بينما يملئ العمود الاوا (JOUR) بالارقام من 1 الى 31
الصورة توضح المطلوب
RE: كيف يمكن ان اعمل هذا - alma2 - 24-05-17
للأسف الصورة لا توضح المطلوب
RE: كيف يمكن ان اعمل هذا - rabeh.ram - 24-05-17
(24-05-17, 12:31 AM)alma2 كتب : للأسف الصورة لا توضح المطلوب
لقد عدلت في الطرح لكي يتضح اكثر
RE: كيف يمكن ان اعمل هذا - alma2 - 24-05-17
كود :
If DataGridView1.RowCount < 31 Then DataGridView1.RowCount = 31
For i = 0 To 31 - 1
DataGridView1.Item(0, i).Value = i + 1
DataGridView1.Item(1, i).Value = ListBox1.Items(i)
NextRE: كيف يمكن ان اعمل هذا - rabeh.ram - 24-05-17
(24-05-17, 12:59 AM)alma2 كتب :شكرا لكاخي على تفاعلك معناكود :
If DataGridView1.RowCount < 31 Then DataGridView1.RowCount = 31
For i = 0 To 31 - 1
DataGridView1.Item(0, i).Value = ListBox1.Items(i)
Next
"بحيث تشغل سطور العمود الثاني (VAL) من datagridview " غير مفهومة
اي اقصد سطور الحقل val هي التي تاخذ القيم الموجودة في listbox
كما انه ظهر هذا الخطا عند تطبيق الكود
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index
RE: كيف يمكن ان اعمل هذا - rabeh.ram - 24-05-17
وجدت الحل و اردت ان اشارككم به شكرا لكل من تفاعل معنا
الحل كان من خلال هذا الكود
كود :
For k = 0 To ListBox1.Items.Count - 1
If DataGridView1.Rows(k).Cells.Item(1).Value Is Nothing Then
DataGridView1.Rows.Add(k + 1, ListBox1.Items(k), Nothing)
End If