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

yt_zy

if 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;
  END;
当选中重新报价后，才能对左下脚的grid进行编辑
但是当选择后，‘说明’字段依旧只读，但是切换到‘单价’后，‘单价’可以进行编辑，再切换到‘说明’后，说明也可以进行编辑，这是怎么回事？是不是我哪处理的不对，选择的事件有问题？

lixy

楼主选择的什么事件进行控制的？

yt_zy

我是再数据集的FieldChange(DataSet: TDataSet; Field: TDataField)事件中实现的

yt_zy

？？

lixy

别老几分钟就一顶。
应该是没post，这个事件可能没触发。你设个断点，看看代码能不能跳进来。

yt_zy

事件触发了，请仔细看下我1楼的描述。。。设置的断点，代码能跳进来的，而且执行的也对
对于几分钟一顶，这个问题可以看出我比较着急，而且21分钟也算几分钟的话，我没什么好说的。。。

lixy

1楼的描述，我看不出哪里写的代码跳了进来。
那您稍等下，我自己测试一下。您的版本是什么？

yt_zy

2819

yt_zy

当选中1楼图中的重新报价后，当焦点移动到左下脚的Grid上后，进入FIELDCHANGE事件
// DataSetEDIT_MAT_COMPARE_QUALITY_PIRCE 就是左下角grid的数据集
  if 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;
  END;
点击左下角焦点所在字段，就出现1楼描述的问题

atiger

你设置断点跟踪一下，你的逻辑是否有问题