16,748
社区成员
发帖
与我相关
我的任务
分享
adoquery20.DisableControls;
try
Adoquery20.First;
if not ADOQuery20.Eof then
begin
s2:=adoquery20.fieldbyname('sField2').AsString;
s3:=adoquery20.fieldbyname('remark').AsString;
end;
ADOQuery20.Next;
while not Adoquery20.Eof do
begin
s4:=adoquery20.fieldbyname('sField2').AsString;
s5:=adoquery20.fieldbyname('remark').AsString;
if(s2=s4) then
begin
ListBox1.Items.Add(s3);
ListBox1.Items.Add(s5);
end;
Adoquery20.Next;
end;
finally
adoquery20.EnableControls;
end;
adoquery20.DisableControls;
try
Adoquery20.First;
while not Adoquery20.Eof do
begin
s2:=adoquery20.fieldbyname('sField2').AsString;
s3:=adoquery20.fieldbyname('remark').AsString;
Adoquery20.Next;
s4:=adoquery20.fieldbyname('sField2').AsString;
s5:=adoquery20.fieldbyname('remark').AsString;
if(s2=s4) then
begin
ListBox1.Items.Add(s3);
ListBox1.Items.Add(s5);
end;
end;
finally
adoquery20.EnableControls;
end;
while not Adoquery20.Eof do
begin
s1:=adoquery20.fieldbyname('sField2').AsString;
Adoquery20.Next;
ss:=adoquery20.fieldbyname('sField2').AsString;
if(ss=s1) then
begin
DataSet.FieldByName('s4').AsString:='0';
end;
end;