cxSpreadBook 或 cxSpreadSheet 设置成文本格式

时间：2014-10-31 11:57:20 阅读：332 评论：0 收藏：0 [点我收藏+]

uses

cxSSStyles,cxSSDesigner;

Type

TStyleAccess = class(TcxSSCellStyle);
TSheetAccess = class(TcxSSBookSheet);

procedure TForm2.Button16Click(Sender: TObject);

var
Row,Col: Integer;
AStyle: TcxSSCellStyle;
CurrentStyle: integer;
begin
TSheetAccess(cxSpreadBook.ActiveSheet).Owner.BeginUpdate;
try
for Row := 0 to cxSpreadBook.ActiveSheet.RowCount - 1 do
for Col := 0 to cxSpreadBook.ActiveSheet.ColumnCount - 1 do
begin
AStyle := cxSpreadBook.ActiveSheet.GetCellObject(Col,row).Style;
CurrentStyle := TStyleAccess(AStyle).StyleInfo.FormatIndex;
if CurrentStyle =0 then //像那些时间类型的不能强制转换成文本不然会出错
begin
TStyleAccess(AStyle).StyleInfo.FormatIndex := 49;
TStyleAccess(AStyle).DoOnChange(AStyle, siFormat);
end;
end;
finally
TSheetAccess(cxSpreadBook.ActiveSheet).Owner.EndUpdate;
end;

end;

cxSpreadBook 或 cxSpreadSheet 设置成文本格式

标签：des style ar for sp on cti bs ad

原文地址：http://blog.csdn.net/dongzi502/article/details/40651553

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行