[5000]

أكتب هذا الكود وغير رقم العمود بالنسبة للمجموع

Dim filePath As String = "d:\TestTxt.txt"
Dim Separ As String = "|"

Dim sb As New List(Of String)

sb.Add("عدد تسجيلات الداتاقريد: " & DGView.RowCount)
sb.Add("التاريخ: " & Today.ToLongDateString)

Dim total = (From x As DataGridViewRow In DGView.Rows Select CDbl(x.Cells(0).Value)).Sum
sb.Add("المبلغ الإجمالي: " & FormatNumber(total) & " دينار")

sb.Add(String.Empty)

For Each r As DataGridViewRow In DGView.Rows
    If r.IsNewRow Then Exit For

   Dim ARR = From x As DataGridViewCell In r.Cells Select x.Value
    sb.Add(String.Join(Separ, ARR))

Next

File.WriteAllLines(filePath, sb.ToArray)
Process.Start(filePath)