单元格边框颜色

w_Range= sp.ActiveSheet.cells(2,2)
w_cBorder=New FarPoint.Win.ComplexBorder(red,red,nothing,nothing)
w_Range.Border=cBorder
这是我简单写的代码，现在出现的问题是cell（2，2）把相邻的cell（3，2）和cell（2，3）的上边框和左边框的颜色清空了。
有什么方法可以只改变我想改变的边框其他边框不变？

回复 1楼czpi的帖子

感谢你的问题反馈，我模拟你的代码如下：

1. 
   
2.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
3.         Dim w_Range As FarPoint.Win.Spread.Cell
   
4.         w_Range = Me.FpSpread1.ActiveSheet.Cells(2, 2)
   
5.         Dim red As New FarPoint.Win.ComplexBorderSide(Color.Red)
   
6.         Dim w_cBorder As New FarPoint.Win.ComplexBorder(red, red, Nothing, Nothing)
   
7.         w_Range.Border = w_cBorder
   
8.     End Sub
   

复制代码

实现效果图如下：


所以，请问您的问题是 Cell[2,2]的上边框遮盖住了 Cell[1,2]的下边框了吗？如果是，下面这段代码可以解决您的问题，需要设置 Cell[1，2]的下边框：

1.         Dim w_Range As FarPoint.Win.Spread.Cell
   
2.         w_Range = Me.FpSpread1.ActiveSheet.Cells(2, 2)
   
3.         Dim red As New FarPoint.Win.ComplexBorderSide(Color.Red)
   
4.         Dim w_cBorder As New FarPoint.Win.ComplexBorder(red, red, Nothing, Nothing)
   
5.         w_Range.Border = w_cBorder
   
6. 
   
7.         Dim green As New FarPoint.Win.ComplexBorderSide(Color.Green)
   
8.         Dim w_cBorder1 As New FarPoint.Win.ComplexBorder(green, Nothing, Nothing, green)
   
9.         Me.FpSpread1.ActiveSheet.Cells(1, 2).Border = w_cBorder1

复制代码

我的表述可能不是很清楚，如上图，如果原来cell（3，2）和cell（2，3）边框是有颜色的。
我把cell（2，2）设置之后cell（3，2）和cell（2，3）的上边框和左边框的颜色清空了。

我的意思是我只设置cell（2，2）的左和上边框，同时不应想其他单元格边框的颜色。

回复 3楼czpi的帖子

抱歉，我还不是特别清楚你的问题。截图中设置边框后并没有遮盖Cell[2,3]和Cell[3,2]的边框。实际上在截图中Cell[2,3]和Cell[3,2]并没有设置边框，灰色线是 gridline。

使用2#中的代码能重现你的问题吗？请您上传能重现问题的Demo 到论坛调试。最好能有设置前后对比截图。

谢谢