- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 在全局事件的 dredraw 中加入AddUserStyle ,但是导出exlcel没有颜色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149097)
-- 发布时间：2020/4/23 11:01:00
-- [求助] 在全局事件的 dredraw 中加入AddUserStyle ,但是导出exlcel没有颜色
Case "本次涨幅","工龄工资" ,"调薪后工资" ,"待遇总额"
Dim m As String = "变色"
Dim m2 As String = "变色2"
If e.Col.Name = "本次涨幅" Then
e.Table.DataTable.AddUserStyle(m2, Color.FROMARGB(240,240,240), Color.red)
e.Style = m2
Else
e.Table.DataTable.AddUserStyle(m, Color.FROMARGB(240,240,240), Color.black)
e.Style = m
End If
-- 发布时间：2020/4/23 11:13:00
--
怎么导出exlcel的？
-- 发布时间：2020/4/23 11:22:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("test").SaveExcel(dlg.FileName,"工资调整汇总") \'保存文件
End If
-- 发布时间：2020/4/23 11:25:00
--
http://www.foxtable.com/webhelp/topics/0559.htm
示例二
保存订单表，包括行号列和单元格样式：
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单",flg)
-- 发布时间：2020/4/23 12:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出测试.foxdb |
还是不行
-- 发布时间：2020/4/23 13:37:00
--
是有问题，已反馈