ممكن تعديل علي المشروع - نسخة قابلة للطباعة

ممكن تعديل علي المشروع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37429)

ممكن تعديل علي المشروع - اليوم السابع - 09-01-21

انا عملت مشروع لي استراد داتا من ملف اكسيل
ولكن الاخطاء اللي بتظهر كما موضح في الصورة
انه بيتم اضافه اعمده ثلاث اضافيه F1 ,F2,F3
بجانب الاعمدة الاساسية
اريد يتم جلب البيانات في الاعمده الاساسية
ID,Name,Gender
ويتم تجنب اول صف بالكامل الي بيحتوي علي
D,Name,Gender
I

RE: ممكن تعديل علي المشروع - 1nj - 10-01-21

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    DataGridView1.ColumnCount = 3

    DataGridView1.Columns(0).Name = "ID"

    DataGridView1.Columns(1).Name = "Name"

    DataGridView1.Columns(2).Name = "Gender"

    DataGridView1.Columns(0).DataPropertyName = "ID"

    DataGridView1.Columns(1).DataPropertyName = "Name"

    DataGridView1.Columns(2).DataPropertyName = "Gender"

    rbHeaderYes.Checked = True

End Sub

RE: ممكن تعديل علي المشروع - اليوم السابع - 10-01-21

(10-01-21, 02:11 AM)1nj كتب :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load DataGridView1.ColumnCount = 3 DataGridView1.Columns(0).Name = "ID" DataGridView1.Columns(1).Name = "Name" DataGridView1.Columns(2).Name = "Gender" DataGridView1.Columns(0).DataPropertyName = "ID" DataGridView1.Columns(1).DataPropertyName = "Name" DataGridView1.Columns(2).DataPropertyName = "Gender" rbHeaderYes.Checked = True End Sub

اشكرك اخي الله ينور سؤال اخير ان شاء الله
لو عاوز اعمل لوب يأخذ قيم كل صف في متغيرات
يعني الصف رفم 0 القيمه اللي في عامود رقم 0 (ID) في متغير و القيمه اللي في عامود رقم 1 (Name) في متغير
وهكذا كيف

RE: ممكن تعديل علي المشروع - 1nj - 10-01-21

كود :

For i = 0 To DataGridView1.Rows.Count - 1

    Dim a = DataGridView1.Rows(i).Cells(0).Value ' ID

    Dim b = DataGridView1.Rows(i).Cells(1).Value ' Name

    MsgBox(a & b)

Next