procedure TData.jyrwdAfterScroll(DataSet: TDataSet); begin with jyrwd do begin if(FieldByName('wcqk').AsString='') then jyrwd.N5.Caption='计划完成' else :jyrwd.N5.Caption='取消完成'; end; 结果出错,因为我本意是要调用的jyrwd是Form而不是clientdataset
procedure TData.jyrwdAfterScroll(DataSet: TDataSet); begin with jyrwd do begin if(FieldByName('wcqk').AsString='') then jyrwd.N5.Caption='计划完成' else jyrwd.N5.Caption='取消完成'; end; 结果出错,因为我本意是要调用的jyrwd是Form而不是clientdataset
with jyrwd do begin if(FieldByName('wcqk').AsString='') then jyrwd.N5.Caption='计划完成' 第一个jyrwd显然是clientdataset, 改成 if jyrwd.fieldbyname('wcqk').asstring='' then jyrwd.n5.caption='完成';
如:
控件 :data.yjrwd.readonly:=true;
Data.jYrwd.checked:=true;
(Form)jyrwd.checkbox1.checked:=true;
前面用所有者以示区分
begin
with jyrwd do begin
if(FieldByName('wcqk').AsString='') then jyrwd.N5.Caption='计划完成'
else :jyrwd.N5.Caption='取消完成';
end;
结果出错,因为我本意是要调用的jyrwd是Form而不是clientdataset
begin
with jyrwd do begin
if(FieldByName('wcqk').AsString='') then jyrwd.N5.Caption='计划完成'
else jyrwd.N5.Caption='取消完成';
end;
结果出错,因为我本意是要调用的jyrwd是Form而不是clientdataset
if(FieldByName('wcqk').AsString='') then jyrwd.N5.Caption='计划完成'
第一个jyrwd显然是clientdataset,
改成
if jyrwd.fieldbyname('wcqk').asstring='' then
jyrwd.n5.caption='完成';