讀取 有 DataGridView 既 Record 後 寫入 Text File

 
讀取 有 DataGridView 既 Record 後 寫入 Text File
 

   Form1.vb
 
   Imports System.IO
 
   Private Sub SaveFile(ByVal FileName As String)
 
      Dim objStreamWriter As New StreamWriter(FileName)
      Dim A As String = DataGridView1.Columns(0).Name
      Dim B As String = DataGridView1.Columns(1).Name
 
      objStreamWriter.WriteLine(A & "|" & B)
 
      For index As Integer = 0 To DataGridView1.RowCount – 1
         A = DataGridView1.Rows(index).Cells(0).Value
         B = DataGridView1.Rows(index).Cells(1).Value
         objStreamWriter.WriteLine(A & "|" & B)
      Next
 
      objStreamWriter.Close()
 
   End Sub