数据集临时字段赋值错误**

trickle

DataSetCheciAnalySingle是我的数据集，我在它的afteropen事件里调用下面的方法，出现错误：     

       DataSetCheciAnalySingle.Edit;
       DataSetCheciAnalySingle.FieldByName('ordercustsum').value := ordernum;
       DataSetCheciAnalySingle.FieldByName('custsum').value := custnum;
       DataSetCheciAnalySingle.FieldByName('LCLJ').value := glsnum;

上面的三个字段均是临时字段，且都是数字类型，不应该有错的啊

gaihl

检查一下ordernum，custnum，glsnum三个变量的值

trickle

最初由 gaihl 发布
[B]检查一下ordernum，custnum，glsnum三个变量的值 [/B]

前两个是integer,后一个是double  临时字段属性里，前两个是整数，后一个是数字

gaihl

是用Ctrl＋F7看到的吗？

trickle

这个是干么用的。。。
我设断点时，是到了edit这句报错的

gaihl

是可以看变量的。
贴一下数据字段定义，和三个变量的声明吧

trickle

object FIELD_CheciAnalySingle_ordercustsum: TInternalDataField
    ID = 'ordercustsum'
    DisplayName = #35746#36135#37327#32047#35745
    DataType = dtInteger
    EditStyleID = 'Number'
    Alignment = taRightJustify
    Attributes.ReadOnly.Text = 'True'
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
  end
  object FIELD_CheciAnalySingle_custsum: TInternalDataField
    ID = 'custsum'
    DisplayName = #23458#25143#24635#35745
    DataType = dtInteger
    EditStyleID = 'Number'
    Alignment = taRightJustify
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
  end
    object FIELD_CheciAnalySingle_LCLJ: TInternalDataField
    ID = 'LCLJ'
    DisplayName = #37324#31243#32047#35745
    DataType = dtNumber
    DataTypeAttribute.Precision = 15
    DataTypeAttribute.Scale = 2
    EditStyleID = 'Number'
    Alignment = taRightJustify
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
  end

trickle

var
  ordernum:integer;
  custnum:integer;
  glsnumouble;

gaihl

把afteropen中的完整代码贴出来看看，不应出现这情况！

trickle

procedure TCCFX.dsbCheciSingleAfterOpen(DataSet: TDataSet);
begin
  //jsDialogs.ShowMsg(sysutils.IntToStr(dsbCheciSingle.DataSet.RecordCount),' l');
  CheciAnaly.TCheciAnaly(InfoBrokerCHECIANALY.Info).setTempData(CheciAnaly.TCheciAnaly(InfoBrokerCHECIANALY.Info).getZzLiang());
end;

function TCheciAnaly.setTempData(zzliang:integer):TIntArray;
var
  ordernum:integer;
  custnum:integer;
  glsnumouble;
  qyid:string;
  tempqyid:string;
  row:integer;
  i:integer;
  tempche:integer;
  che:integer;
  len:integer;
  barray:TIntArray;
begin
//直接为数据集的临时字段赋值
  ordernum :=0;
  custnum :=0;
  glsnum :=0.00;
  qyid:='';
  row := 0;
  tempche :=0;
  che :=0;
  i :=0;
  //为数组赋值0
  //length := DataSetCheciAnalySingle.ChangeCount;
  len := DataSetCheciAnalySingle.RecordCount;
  //len := 10;
  SetLength(barray,len);
  SetLength(gridarray,len);
  for i:=0 to len-1 do
  begin
    barray:=0;
  end;
  i :=0;
  DataSetCheciAnalySingle.First;
     while(DataSetCheciAnalySingle.Eof=False) do
     begin
       ordernum := ordernum + DataSetCheciAnalySingle.FieldByName('orderSum').AsInteger;
       custnum := custnum+1;
       tempqyid := DataSetCheciAnalySingle.FieldByName('QYLJID').AsString;
       tempche := ordernum div zzliang;
       if(qyid.Equals(tempqyid)=False)then
       begin
         glsnum := glsnum+ DataSetCheciAnalySingle.FieldByName('ZD').AsFloat;
         qyid := tempqyid;
         barray:= row;
         i := i+1;
       end;
       //同一区域里，需要换车的时候记录行数
         if(che <> tempche)then
         begin
           che := tempche;
           barray:=row;
           i:=i+1;
         end;
       //第几条记录的时候row为几-1；
       row := row +1;
       //DataSetCheciAnalySingle.Edit;
       DataSetCheciAnalySingle.FieldByName('ordercustsum').value := ordernum;
       DataSetCheciAnalySingle.FieldByName('custsum').value := custnum;
       DataSetCheciAnalySingle.FieldByName('LCLJ').value := glsnum;
       DataSetCheciAnalySingle.Next;
     end;
  gridarray := barray;
  Result := barray;
end;