procedure TForm3.btn4Click(Sender: TObject);
begin
with qryvoucher do
begin
try
DisableControls;
if (not isempty) then
begin
first;
while not eof do
begin
edit;
FieldByname('IsSelect').AsBoolean := not FieldByname('IsSelect').AsBoolean;
post;//====================
next;
end;
end;
finally
EnableControls;
end
end;
end;
同时有个全选反选的按钮的脚本如下,也不能做到更改
procedure TForm3.btn4Click(Sender: TObject);
begin
with qryvoucher do
begin
try
DisableControls;
if (not isempty) then
begin
first;
while not eof do
begin
edit;
FieldByname('IsSelect').AsBoolean := not FieldByname('IsSelect').AsBoolean;
next;
end;
end;
finally
EnableControls;
end
end;
end;