01-04-22, 03:16 PM
(آخر تعديل لهذه المشاركة : 05-04-22, 11:35 AM {2} بواسطة محمد بوقزاحة.)
السلام عليكم
ارجوو المساعدة في معرفة الخطأ في الكود المرفق
المصدر من يوتيوب
الرابط الفيديو
https://youtu.be/LMyOWX8bL_A
المكتبات المستخدمة
Imports System.IO
Imports System.Data
Imports system.Management
Imports system.Data.SqlClient
Imports system.Text
Imports system.Security.Cryptography
===================
Private Sub Button2_Click_1(ByVal sender As system.Object, ByVal e As system.EventArgs) Handles Button2.Click
Dim sfd As New SaveFileDialog
sfd.FileName = "export-csv"
sfd.Filter = "CSV file |*.csv"
If sfd.ShowDialog() = DialogResult.OK Then
Using sw As StreamWriter = File.CreateText(sfd.FileName)
Dim dgvcolumnNames As List(Of String) = DataGridView1.Columns.
Cast(Of DataGridViewColumn).ToList().
Select(Function© c.Name).ToList()
sw.WriteLine(String.Join(",", dgvcolumnNames))
For Each row As DataGridViewRow In DGV.Rows
Dim rowData As New List(Of String)
For Each column As DataGridViewColumn In DataGridView1.Columns
rowData.Add(Convert.ToString(row.Cells(column.Name).Value))
Next
sw.WriteLine(String.Join(",", rowData))
Next
Process.Start(sfd.FileName)
End Using
End If
End Sub
=================================================
ارجوو المساعدة في معرفة الخطأ في الكود المرفق
المصدر من يوتيوب
الرابط الفيديو
https://youtu.be/LMyOWX8bL_A
المكتبات المستخدمة
Imports System.IO
Imports System.Data
Imports system.Management
Imports system.Data.SqlClient
Imports system.Text
Imports system.Security.Cryptography
===================
Private Sub Button2_Click_1(ByVal sender As system.Object, ByVal e As system.EventArgs) Handles Button2.Click
Dim sfd As New SaveFileDialog
sfd.FileName = "export-csv"
sfd.Filter = "CSV file |*.csv"
If sfd.ShowDialog() = DialogResult.OK Then
Using sw As StreamWriter = File.CreateText(sfd.FileName)
Dim dgvcolumnNames As List(Of String) = DataGridView1.Columns.
Cast(Of DataGridViewColumn).ToList().
Select(Function© c.Name).ToList()
sw.WriteLine(String.Join(",", dgvcolumnNames))
For Each row As DataGridViewRow In DGV.Rows
Dim rowData As New List(Of String)
For Each column As DataGridViewColumn In DataGridView1.Columns
rowData.Add(Convert.ToString(row.Cells(column.Name).Value))
Next
sw.WriteLine(String.Join(",", rowData))
Next
Process.Start(sfd.FileName)
End Using
End If
End Sub
=================================================