【搞定】怎么用代码设置一个单元格的上边框？**

bsit

怎么用代码设置一个单元格的上边框
我用如下代码为何单元格上下边框都变红色了呢？
  　　　lBorders.Color := Graphics.clred;
        　　lBorders.Line := TCellSideLine.slSingle;
TSheetDoc(DocViewKHJS_BGWD1.Doc).Sheet.Cells[1,dataSet.RecordCount+9].Border[TCellSide.sTop] := lBorders;

atiger

正在看有结果马上跟贴

对了，楼主，如果你画一个普通的单元格子，直接[1,1],这样的格子线正常吗？

atiger

没有能再现，你跟踪一下代码吧，是否在画下一行的这个单元格的上边框也画成红色了，然后就看到这个格子的上下都为红色了

jiahaiminghr

楼主，问题解决了吗？

lixy

由于长时间没有反馈，先结贴了。

有问题请开新贴。