关于用代码画表格的问题

tangyongbo

     我现在有一个统计表格比较复杂（涉及到列的动态扩展和单元格的动态合并），所以我现在正在试验用代码自己画sheetdoc，可以用代码显示文字以你改变单元格的颜色，但是边框颜色一直都变不了，请帮我看看我的代码有什么问题：

TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].AsString := 'abc';
TSheetDoc(DocView1.doc).Sheet.ColWidths[2]:=120;
TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].Color:= Graphics.clRed;
TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].Border[TCellSide.sLeft].Color:=Graphics.clBlack;
TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].Border[TCellSide.sLeft].Line:=TCellSideLine.slDouble;
DocView1.Doc.Close;
DocView1.Doc.Open(TDocMode.dmEdit, DocView1);
    再有就是请问有没有关于用代码操作SheetDoc的一些代码  或者是例子  能让我借鉴借鉴吗？

tangyongbo

前面提的那个问题已经知道原因了，只要把
TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].Border[TCellSide.sLeft].Line:=TCellSideLine.slDouble;改成
TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].Sides:=TSheetDoc(DocView1.doc).Sheet.Cells[2, 1].Sides+[TCellSide.sLeft];  就可以了，但是边框颜色没办法改变，还有就是前面说的有没有有关的例子或者代码能让我借鉴一下吗？

didi0225

好像不行