5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.cxButton2Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to ADOQuery1.RecordCount-1 do
begin
//ADOQuery1.FieldByName('字段名称').Value //当等于此字段名称时显示.
if ADOQuery1.FieldByName('选择').Value='1' then
begin
????
end;
end;
end;