Addrows插入一行，新行如何保持之前相邻行的样式？

收藏

插入一行，如何保持之前相邻行的样式？比如有单元格合并什么的。

我是这样实现的，代码片段如下，感觉不是最合适的方法：

If insertRows > 0 Then
reportSheet.AddRows(startRowIndex, insertRows)
'拷贝样式
For x As Integer = 0 To reportSheet.NonEmptyColumnCount - 1
For y As Integer = startRowIndex To startRowIndex + insertRows - 1
reportSheet.SetStyleInfo(y, x, reportSheet.GetStyleInfo(startRowIndex + insertRows, x))
reportSheet.Cells(y, x).ColumnSpan = reportSheet.Cells(startRowIndex + insertRows, x).ColumnSpan
Next
Next
End If

复制代码

但是比如最右侧的边框还是不对

iceman · iceman

回复 1楼taxsoft的帖子

感谢您的问题反馈，建议参考帮助文档中 Rows.DefaultRow Class ，此类用于设置默认新增行样式。
再结合您的合并代码，相信可以实现。

如果有其他问题，请及时通知我。

taxsoft · taxsoft

回复 1楼taxsoft的帖子

感谢您的问题反馈，建议参考帮助文档中 Rows.DefaultRow Class ，此类用于设置默认新增行样式。
再结合您的合并代码
iceman 发表于 2013-4-17 14:03:00

好吧。

iceman · iceman

回复 3楼taxsoft的帖子

		自动登录	找回密码
密码			立即注册

3 个回复