主题：[求助]导出excel时原来的排序改变了。

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

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

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

    Dim ex As New Exporter

    ex.SourceTableName = "蒸镀工piao信息"

    ex.Filter = Tables("查看派工单_蒸镀工piao信息").Filter 

    ex.filepath = dlg.FileName  '指定目标文件

    ex.Format = "Excel"

    ex.Fields = "允许提前分切,位置号,交货日期,客户代号,生产单号,流水号,型号,规格" '

    ex.Export() '开始导出

End If