procedure TTest_Info.DataSetdstFieldChange(DataSet: TDataSet; Field: TDataField);
begin
if (Field <> nil) and (Field.FieldName = '编码') then //这地方的FieldName 是ID还是DisPlayName?
begin
jsdialogs.ShowMsg('0001!','测试');
if DataSetdst.FieldByName('code').AsString = 'V' then
begin
jsdialogs.ShowMsg('V','测试');
end
else
begin
jsdialogs.ShowMsg('H','测试');
end;
end;
end;
这是我写的代码,为什么在改变字段值时没反应呢?