兄弟们:
procedure TDMCOST.Q_surfaceCalcFields(DataSet: TDataSet);
begin
  
  //怎么在OnCalcFields事件里判断 DataSet['FieldName'] 的值为空啊
  还有怎么防止除数是零的情况
end;

解决方案 »

  1.   

    if DataSet.Fields.Fields['FieldName'].IsNull then
    ShowMessage('null');
      

  2.   

    To
      meiqingsong(阿飛),为什么在运行时会出现Incompatible:'Integer'and 'String'
      的提示错误,编译没有问题。
      

  3.   

    To
      meiqingsong(阿飛),为什么在编译时会出现Incompatible:'Integer'and 'String'
      的提示错误.
      

  4.   

    你的字段是integer类型的吗?
    是的话试试
    if DataSet.Fields.Fields['FieldName'].AsInteger = 0 then
      

  5.   

    这个应该行了
    if DataSet.Fields.FieldByName('FieldName').IsNull then
    ShowMessage('null');
      

  6.   

    DataSet.Fields.Fields['FieldName'].AsInteger = 0 
    DataSet.Fields.Fields['FieldName'].isnull分母是0加个0.0001
      

  7.   

    为什么还是 这个 Incompatible:'Integer'and 'String'
    提示错误.
      

  8.   

    用这个
    if DataSet.Fields.FieldByName('FieldName').IsNull then
    ShowMessage('null');
      

  9.   

    在SQL语句中,如下:
    SELECT *
    FROM student
    WHERE name is not null