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()
但导出序列没有序号数值呢，如何才能导出也有序号
加好友 
发短信
Post By：2022/2/15 17:39:00 [只看该作者]
