【搞定】控制数据集只读中遇到的怪问题。。。**

lixy

f Field.FieldName = 'REQUOTATION' THEN // 判断重新报价字段
  BEGIN
    if Field.AsString = 'T' THEN
      BEGIN
      DataSetEDIT_MAT_COMPARE_QUALITY_PIRCE.Readonly := false;
      END
    else
      DataSetEDIT_MAT_COMPARE_QUALITY_PIRCE.Readonly := true;
DataSetEDIT_MAT_COMPARE_QUALITY_PIRCE.LayoutChange;
  END;

yt_zy

OK,THANKS