29-03-20, 05:09 PM
29-03-20, 05:21 PM
29-03-20, 05:44 PM
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
هذا الكود لداتا غرايد فيها اربع اعمدة يمكنك الزيادة حسب ماترغب
انشئ ملف نصي في مجلد Debug الخاص بمشروعك بالاسم الذي تريده
واستبدل الاسم الذي اوردته لك"YourFile.txt" باسم الملف الذي انشأته
تفضل اخي الكريم
هذا الكود لداتا غرايد فيها اربع اعمدة يمكنك الزيادة حسب ماترغب
انشئ ملف نصي في مجلد Debug الخاص بمشروعك بالاسم الذي تريده
واستبدل الاسم الذي اوردته لك"YourFile.txt" باسم الملف الذي انشأته
كود :
'YourFile.txt انشئ ملف نصي في مجلد ال الديبك للمشروع باسم
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Dim strTxt As String = ""
For i As Integer = 0 To DataGridView1.Rows.Count - 1
strTxt += DataGridView1.Rows(i).Cells(0).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(1).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(2).Value.ToString() & ";" & DataGridView1.Rows(i).Cells(3).Value.ToString() & Environment.NewLine
Next
Dim Sw As New StreamWriter("YourFile.txt", True)
Sw.Write(strTxt)
Sw.Close()
Catch ex As Exception
End Try
End Sub
30-03-20, 03:57 PM
شكرا اخواني الكرام
جاري التنفيذ وتجربة الاكواد
جاري التنفيذ وتجربة الاكواد