21-03-19, 12:36 PM
السلام عليكم ورحمة الله وبركاته
في البداية أشكر الأخ 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))
حيث أريد إضافة سطر في بداية الملف النصي وجلب فقط بعض الخانات من الداتاقريد كما هو مبين في الكود الموالي
وبارك الله فيكم
في البداية أشكر الأخ 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("تمت عملية الحفظ بنجاح")