设置表格文档单元格的下划线

atiger

Var
  lSheet: Business.Model.TSheetDoc;
begin
  lSheet := TSheetDoc(DocView1.Doc);
  lSheet.Cells[1,1].Font.Style:= [TFontStyle.fsUnderline]
  DocView1.Doc.Close;
  DocView1.OpenView(TDocMode.dmEdit);
end;