主题：怎么导出无表头的TXT文本文件

编码导出的TXT文本文件有表头，怎么导出无表头的TXT文本文件？

Dim ny As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dw As WinForm.ComboBox = e.Form.Controls("ComboBox2")
If ny.value Is Nothing Or dw.value Is Nothing Then
    MessageBox.Show("请选择工资月份和单位!","提示")
    Return
End If

DataTables("代发工资数据").LoadFilter="工资月份='" & ny.Value & "' and 单位名称='" & dw.value & "'"
DataTables("代发工资数据").Load
Dim dlg As New SaveFileDialog
dlg.Filter = "文本|*.txt"
dlg.InitialDirectory = ProjectPath
dlg.FileName = dw.value & ny.value & ".txt"
If dlg.ShowDialog = DialogResult.Ok Then
    If FileSys.FileExists(dlg.FileName) Then
        FileSys.DeleteFile(dlg.FileName, 2, 2)
    End If
   
    Dim ex As New Exporter
    ex.SourceTableName = "代发工资数据" '指定导出表
    ex.FilePath = FileSys.GetParentPath(dlg.FileName) '指定目标文件路径
    ex.Format = "Delimited" '导出格式为固定宽度的文本文件
    ex.Fields = "账号,姓名,身份证号码,新应发项,实发工资"
    ex.Filter = "工资月份='" & ny.Value & "' and 单位名称='" & dw.value & "'"
    ex.NewTableName = FileSys.GetName(dlg.FileName).replace(".txt", "") '指定文件名,注意无须扩展名
    ex.Export() '开始导出
   
    Dim str As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    Dim idx As Integer = str.IndexOf(vbcrlf)
    str = str.SubString(idx+2)
    str = str.Replace("""", "")
    FileSys.WriteAllText(dlg.FileName, str, False, Encoding.Default)
End If

多谢！