以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]生成的交叉统计表如何应用表的drawcell属性  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92318)

--  作者:雪风
--  发布时间:2016/10/31 20:25:00
--  [求助]生成的交叉统计表如何应用表的drawcell属性
请教各位大神,如果生成一个交叉统计表除了列标题和第一列数据以外,其他全部是数字,如何实现drawcell事件
[此贴子已经被作者于2016/10/31 20:25:08编辑过]

--  作者:有点蓝
--  发布时间:2016/10/31 20:37:00
--  
生成统计表后,按钮或者命令窗口执行
DataTables("统计表1").GlobalHandler.DrawCell = True

到项目全局DrawCell 事件写代码

If e.Table.Name = "统计表1" Then
    \'其它代码
End If

--  作者:雪风
--  发布时间:2016/10/31 22:23:00
--  
drawcell事件写的代码,在foxtable里面可以显示,为什么导出到excel,颜色不显示 呢?
--  作者:有点蓝
--  发布时间:2016/10/31 22:42:00
--  
只有用SaveExcel导出才会有格式

http://www.foxtable.com/webhelp/scr/0559.htm

--  作者:雪风
--  发布时间:2016/10/31 23:06:00
--  
还是不行,是不是试用版的原故?
--  作者:有点蓝
--  发布时间:2016/11/1 8:39:00
--  
上个例子看看
--  作者:有点青
--  发布时间:2016/11/1 8:58:00
--  

测试了一下,有效

 

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("表A").saveExcel("d:\\test.xls", "aaa", flg)