- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel报表给符合条件的记录添加删除线效果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195682)
-- 发布时间：2025/2/28 13:31:00
-- excel报表给符合条件的记录添加删除线效果
excel报表给符合条件的记录添加删除线效果
代码如下：sheet(startRow + i, startCol + 1).Style.Font.Style = FontStyle.Strikeout
报错，只读
如何修改？
-- 发布时间：2025/2/28 13:39:00
--
参考：http://www.foxtable.com/webhelp/topics/1146.htm
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.Font = Dim fnt As New Font("宋体",12,FontStyle.Underline)
Style.Font = Dim fnt As New Font("宋体",12,FontStyle.Underline)
sheet(startRow + i, startCol + 1).Style = Style
-- 发布时间：2025/2/28 13:51:00
--
此主题相关图片如下：微信图片_20250228134913.png
存盘时报错
-- 发布时间：2025/2/28 13:53:00
--
Style.Font = New Font("宋体",12,FontStyle.Underline)
-- 发布时间：2025/2/28 14:04:00
--
谢谢大师，问题已解决
-- 发布时间：2025/2/28 14:14:00
--
就是感觉删除线细了，不明显，能否同时加粗呢
-- 发布时间：2025/2/28 14:21:00
--
需要同时把文字加粗：http://www.foxtable.com/webhelp/topics/0494.htm
-- 发布时间：2025/3/1 10:43:00
--
程序运行此此，报“未将对象引用设置到对象的实例。”
For c1 As Integer = startCol To startCol + 10 \' 遍历所有列
Dim cell As XLS.Cell = sheet(startRow + i, c1)
If cell.Style Is Nothing Then
cell.Style = book.NewStyle() \' 如果单元格没有样式,则创建新样式
End If
cell.Style.BorderLeft = XLS.LineStyleEnum.Thin \' 左边框
cell.Style.BorderRight = XLS.LineStyleEnum.Thin \' 右边框
cell.Style.BorderTop = XLS.LineStyleEnum.Thin \' 上边框
cell.Style.BorderBottom = XLS.LineStyleEnum.Thin \' 下边框
Next
-- 发布时间：2025/3/1 11:04:00
--
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.BorderLeft = XLS.LineStyleEnum.Thin \' 左边框
Style.BorderRight = XLS.LineStyleEnum.Thin \' 右边框
Style.BorderTop = XLS.LineStyleEnum.Thin \' 上边框
Style.BorderBottom = XLS.LineStyleEnum.Thin \' 下边框
For c1 As Integer = startCol To startCol + 10 \' 遍历所有列
sheet(startRow + i, c1).Style = Style
Next