[Abu00Raas]

السلام عليكم ..

عذراً على كثرة الاسئلة ولاكن مالي بعد الله سبحانه ألا انتو الله يحفظكم ..

أخواني أنا مشكلتي أبي احفظ الداتا قريد فيو على ملف مفكرة ( txt )

وهذا الكود اللي استخدمة

كود :

Dim myCoolFile_7 As String = Application.StartupPath & "\تقرير إدارة الأجهزة.txt"
        Dim myWriter_7 As New IO.StreamWriter(myCoolFile_7)

For Each myItem_7 As DataGridViewRow In DataGridView1.Rows
            myWriter_7.WriteLine("")
            myWriter_7.WriteLine("أسم الجهاز : " & DataGridView1.Rows(0).Cells(0).Value)
            myWriter_7.WriteLine("المعرف : " & DataGridView1.Rows(0).Cells(1).Value)
            myWriter_7.WriteLine("مشكلة الجهاز : " & DataGridView1.Rows(0).Cells(2).Value)
        Next

لاكن المشكلة إذا حفظ وفتحت المفكرة ( txt ) يجيني مثل كذا

كود :

أسم الجهاز : ‏‏وحدة تحكم الناقل التسلسلي العالمي (USB‏)
المعرف : PCI\VEN_1033&DEV_0194&SUBSYS_84131043&REV_04\4&DDEC341&0&00E1
مشكلة الجهاز : لم يتم تثبيت برنامج التشغيل لهذا الجهاز - جهاز غير معروف

ــــــــــــــــــــــــ

أسم الجهاز : ‏‏وحدة تحكم الناقل التسلسلي العالمي (USB‏)
المعرف : PCI\VEN_1033&DEV_0194&SUBSYS_84131043&REV_04\4&DDEC341&0&00E1
مشكلة الجهاز : لم يتم تثبيت برنامج التشغيل لهذا الجهاز - جهاز غير معروف

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

أتمنى مساعدتي بارك الله فيكم ..

[Sajad]

السلام عليكم

برجاء ارفاق المثال للتعديل عليه

[أحمد النجار]

انظر الرد التالي

حذث خطأ في الرد والصحيح في الرد التالي

[أحمد النجار]

جرب الجملة كالتالي

كود :

for i as integer = 0 to DataGridView1.Rows.count-1
myWriter_7.WriteLine("")
            myWriter_7.WriteLine("أسم الجهاز : " & DataGridView1.Rows(i).Cells(0).Value)
            myWriter_7.WriteLine("المعرف : " & DataGridView1.Rows(i).Cells(1).Value)
            myWriter_7.WriteLine("مشكلة الجهاز : " & DataGridView1.Rows(i).Cells(2).Value)
        Next

لأن من الواضح ان في الداتا جريد فيو عندك أكثر من صف فبهذا الكود يعطيك كل صف وبياناته

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

يعني لو عندك في الداتا جريد فيو 10 صفوف سوف يأخذ أو صف فقط ويظل يكرره 10 مرات

أما في الجديد فسيأخذ طل صف ويضع بياناته

أما لو أردت عرض بيانات أول صف فقط فلا تعمل Loop

كود :

myWriter_7.WriteLine("")
            myWriter_7.WriteLine("أسم الجهاز : " & DataGridView1.Rows(0).Cells(0).Value)
            myWriter_7.WriteLine("المعرف : " & DataGridView1.Rows(0).Cells(1).Value)
            myWriter_7.WriteLine("مشكلة الجهاز : " & DataGridView1.Rows(0).Cells(2).Value)

[Abu00Raas]

أخوي sajad الله يعطيك الصحة والعافية ما قصرت ..

أخوي أحمد بيض الله وجهك والكود ضبط وما قصرت يا غالي ..

والشكر موصول للجميع ..