以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出excel代码中 怎么加入分组显示的代码呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146387)

--  作者:李孝春
--  发布时间:2020/2/22 17:17:00
--  导出excel代码中 怎么加入分组显示的代码呢?
代码如下:
Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
Dim c1 As WinForm.ComboBox = e.Form.Controls("选择表")
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     tb1.Table.SaveExcel(dlg.FileName, "\'" & c1.value & "\'")  \'保存文件
End If

想加入按照班级  年级  姓名分组进行显示
先按年级班级分组 
然后再分别显示姓名下对应的所有记录   显示完一个姓名后  再显示另外一个姓名

按年级班级显示完毕后  再显示另外一个年级班级的姓名相关记录

--  作者:有点蓝
--  发布时间:2020/2/22 17:19:00
--  
没有办法,请使用分组报表http://www.foxtable.com/webhelp/topics/1542.htm