以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出序号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175005)
--  作者：刘林
--  发布时间：2022/2/15 17:39:00
--  导出序号问题
darwcell 事件 的序号
If e.Col.name = "序号" Then
    e.text = e.Row.Index + 1
End If


Dim but56 As WinForm.Button = e.Form.Controls("button56")
Dim tb15 As Table=Tables("学生信息A_table15")
If tb15.Cols.Contains("序号") = False Then
but56.PerformClick()
End If
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
 Dim flg As New SaveExcelFlags
    flg.CellStyle = True
    Tables("学生信息A_table15").SaveExcel(dlg.FileName, "建档就读报表")  \'保存文件
End If
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()


但导出序列没有序号数值呢，如何才能导出也有序号
--  作者：有点蓝
--  发布时间：2022/2/15 20:20:00
--  
Tables("学生信息A_table15").SaveExcel(dlg.FileName, "建档就读报表",flg)  \'保存文件

语法

SaveExcel(FileName, SheetName, Flags)

FileName： 目标Excel文件名，含路径。
SheetName: 工作表名。
Flags：    可选参数，SaveExcelFlags类型，用于设置保存选项。