如何在文本文件中增加一行

[Jimmyliu2004]

Dim mydt As DataTable = New DataTable
Dim mydc As DataColumn
Dim mydr As DataRow
mydt.rows.add("员工号","日期","时间") 这句不对，不知道如何写了。

[Jimmyliu2004]

回楼上的：
Dim intColCount As Integer = 0
Dim blnFlag As Boolean = True
Dim mydt As DataTable = New DataTable
Dim mydc As DataColumn
Dim mydr As DataRow

Dim FilePath As String
If OpenFile_dg.ShowDialog = DialogResult.OK Then '打开一个文件选择框
FilePath = Me.OpenFile_dg.FileName
End If
Dim strline As String
Dim aryline As String()
Dim i As Integer

If FilePath <> Nothing Then '当文件名不为空
Dim mysr As System.IO.StreamReader = New System.IO.StreamReader(FilePath, System.Text.Encoding.Default)
strline = mysr.ReadLine()
While strline <> Nothing
aryline = strline.Split(vbTab) '以TAB键为分隔符
'aryline = strline.Split("|".ToCharArray())
If blnFlag Then
blnFlag = False
intColCount = aryline.Length
For i = 0 To aryline.Length - 1
mydc = New DataColumn(aryline(i))
mydt.Columns.Add(mydc)
'mydt.Rows.Add(New Object() {"员工号", "日期", "时间"})
Next

Else
mydr = mydt.NewRow()
For i = 0 To intColCount - 1
mydr(i) = aryline(i)
Next
mydt.Rows.Add(mydr)
End If
strline = mysr.ReadLine()
End While
End If

Me.DataGrid1.DataSource = mydt '填充数据到datagrid
Me.DataGrid1.ReadOnly = True

[Jimmyliu2004]

没人响应了啊

[机器人]

mydt.rows.add("员工号","日期","时间")

改为：

mydt.Rows.Add( New Object() {"员工号","日期","时间"} )

[Jimmyliu2004]

可以插入了，但我打开了一文本文件想用插入的数据来做列标题，插入的数据是在第一行，还是做不标题啊

[机器人]

你是怎么把DataTable导出到文本文件的？

使用ColumnName(Caption)作为表头的？