主题：请教高手

 如下代码

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