【结贴】SheetDoc问题**

Jsun2007

为什么取出来的cell内容都是空

atiger

"2"这个值怎么进入到这个格子上的，是直接在格子上输入的吗？还是连接的某个字段的值或者字段的显示名称？
如果不是直接输入的，连接某个字段的值或者字段的显示名称，那么就不是标准单元格，那么就不能这样获取，

单元格的划分参考《用户手册》第6章 业务信息 的 6.14.1 的相关介绍

Jsun2007

如果连接的是字段那要怎么取呢

Jsun2007

如果TSheetDoc(DocViewSL.Doc).Cells[3,2]取不出，那用什么方法才能取出某行某列的值呢

atiger

只能直接访问数据集的某行的某个字段了
先定位到这条记录，然后直接访问某个字段就可以了

Jsun2007

我的代码是这样的，我想判断某行某列的值小于200就把字体变成红色
代码如下：
procedure TMainForm.Button1Click(Sender: TObject);
var
lSheet: Business.Model.TSheetDoc;
i,j : integer;
begin

     DataSetBroker1.DataSet.Open;

     lSheet := TSheetDoc(DocViewTEST1_SJWG2.Doc);


    for i:=3 to lSheet.RowCount-1 do
      for j:=2 to lSheet.ColCount-3 do
        begin
           if  strtoint(lSheet.Cells[j,i].astring) < 200  then
            begin
              lSheet.Cells[j,i].Font.Color := Graphics.clRed;
            end;         
        end;

     DocViewTEST1_SJWG2.Doc.Close;
     DocViewTEST1_SJWG2.OpenView(TDocMode.dmEdit);
end

atiger

咦，我在4楼就说了，好像你没有仔细看哦，你这样的需求，在表格文档中实现不了，

lixy

楼主可以结贴吗？

lixy

长时间未回馈，结贴了