[ahmedfa71]

السلام عليكم ورحمة الله وبركاته
في البداية أشكر الأخ 5000 عى الرد في موضوعي السابق والكود كان شغال لكنني لم أستطع توظيفه 
السطر هذا لم أستطع توظيفه رغم عدة محاولات
Dim sb As New List(Of String)
        Dim total = (From x As DataGridViewRow In DGView.Rows Select CDbl(x.Cells(4).Value)).Sum
        sb.Add("" & DGView.RowCount & "" & Today.ToLongDateString & "" & FormatNumber(total))
حيث أريد إضافة سطر  في بداية الملف النصي وجلب فقط بعض الخانات من الداتاقريد كما هو مبين في الكود الموالي
وبارك الله فيكم 

كود :

Dim Dilaoge As New SaveFileDialog
       Dilaoge.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
       Dilaoge.ShowDialog()
       Dim NomFechiers As String = Dilaoge.FileName
       Dim StreamW As StreamWriter = File.CreateText(NomFechiers)
       Dim Cellule1, Cellule2, Cellule3, Cellule4 As String
       For i As Integer = 0 To DGView.Rows.Count - 1
           Cellule2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "")
           Cellule3 = (DGView.Rows(i).Cells(3).Value.ToString() & "")
           Cellule4 = (DGView.Rows(i).Cells(4).Value.ToString() & "")
           Cellule1 = (DGView.Rows(i).Cells(1).Value.ToString().PadLeft(27))
           StreamW.Write(Cellule2 & "" & Cellule3 & "" & GetFormatNumber(Cellule4) & "" & Cellule1)
           StreamW.WriteLine("")
       Next
       StreamW.Close()
       MessageBox.Show("تمت عملية الحفظ بنجاح")