现有一代码，以能用，但想加入二个新的功能，请高手指导指导~~~~~

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("订单明细表").SaveExcel(dlg.FileName, "展开面积")  \'保存文件
    Dim Proc As New Process
End If

如何在导出的“开面积表”的前面自动加上“序号”，“序号”内容为1，2 ，3....... 并且在保存后看上去打开这个文件，谢谢

 如下代码

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim t As Table = Tables("订单明细表")
    t.DataTable.DataCols.Add("序号", Gettype(Integer))
    t.Cols("序号").Move(0)
    For i As Integer = 1 To t.rows.count
        t.Rows(i-1)("序号") = i
    Next
    t.SaveExcel(dlg.FileName, "展开面积")  \'保存文件
    t.DataTable.DataCols.Delete("序号")
    Dim Proc As New Process
    proc.File = dlg.FileName
    proc.Start
End If

ok,谢谢，完美的代码

为什么我把段个代码用在别的表上，但导出的数据却是原来的数据，请指教,需要修改那个变量才能导出当前表的数据，谢谢

Tables("订单明细表")

表名改了吗？

导出当前表：

Dim t As Table = CurrentTable

用的是同一个Tables("订单明细表"),在不同的窗体里，只是显示的列不一样

同一个窗口，列不同？那就是副本表了吧？要改成 Tables("窗口名_表控件名")

http://www.foxtable.com/help/topics/1788.htm

已解决，谢谢