文本报表疑问 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "txt文件|*.txt" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim ex As New Exporter

ex.SourceTableName = "表A" '指定导出表

ex.Format = "Fixed" '导出格式为固定宽度的文本文件

ex.Fields = "编码,品名,数量,单价,金额" '指定导出字段

ex.filepath = dlg.FileName.Replace(FileSys.GetName(dlg.FileName),"") '指定目标文件

ex.NewTableName = FileSys.GetName(dlg.FileName).Split(".")(0)

ex.Header = False

ex.Export() '开始导出

End If

不要那么死板，替换为自己需要的

ex.SourceTableName = "订单.明细" '指定导出表

ex.SourceTableName = "明细" '不能用关联表

ex.Filter = "编号='" & tables("订单.明细").current("编号") & "'"

Filter 用法看5楼帮助

Tables("pcnhead").Current("print") = True

Dim dt As Table = Tables("pcnhead.pcndetail")

Dim nms() As String = {"SapCode","Validitystartdate"} '要导出的列名

Dim caps() As String = {"SapCode","Validitystartdate"} '对应的列标题

Dim Book As New XLS.Book '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim st As XLS.Style = Book.NewStyle '日期列的显示格式

For c As Integer = 0 To nms.length -1

Sheet(0, c).Value = caps(c) '指定列标题

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

For c As Integer = 0 To nms.length -1

If dt.Cols(nms(c)).IsDate Then '如果是日期列

Sheet(r +1, c).Value = format(dt.rows(r)(nms(c)),"1yyMMdd")

Else

Sheet(r +1, c).Value = dt.rows(r)(nms(c))

End If

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

Sheet.Rows.RemoveAt(0) '在删除最前面一行

Book.Save(dlg.FileName)

Dim Proc As New Process

Proc.File = dlg.FileName

Proc.Start()

End If

主题：文本报表疑问