Foxtable(狐表)用户栏目专家坐堂 → 导出序号问题


  共有3848人关注过本帖树形打印复制链接

主题:导出序号问题

帅哥哟,离线,有人找我吗?
刘林
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
导出序号问题  发帖心情 Post By: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()


但导出序列没有序号数值呢,如何才能导出也有序号

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/15 20:20:00 [只看该作者]

Tables("学生信息A_table15").SaveExcel(dlg.FileName, "建档就读报表",flg)  '保存文件

语法

SaveExcel(FileName, SheetName, Flags)

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


 回到顶部