能不能具体一点呢,我加了两个临时字段SFCSFY1与YSJE1,SFCSFY1表现类型为checkbox,设想如下的代码:(只是个思路)
procedure TRZRCXX.FIELD_RZRCXX_SFCSFY1ButtonClick(Sender: TObject);
begin
if FIELD_RZRCXX_SFCSFY1=0 then
begin
YSJE1.readonly=false;
end
else
begin
YSJE1.readonly=true;
end
end;
这个不行。