if adoquery1.Eof then showmessage('找不到记录!') else begin ListView1.Items.Clear; tmp:=ListView1.Items.Add; tmp.Caption:=ADOQuery1.FieldByName('姓名').AsString; tmp.SubItems.Add(ADOQuery1.FieldByName('年龄').AsString); tmp.SubItems.Add(ADOQuery1.FieldByName('性别').AsString);end; end;
listview1.Items.BeginUpdate;//加 if adoquery1.Eof then showmessage('找不到记录!') else begin ListView1.Items.Clear; tmp:=ListView1.Items.Add; tmp.Caption:=ADOQuery1.FieldByName('姓名').AsString; tmp.SubItems.Add(ADOQuery1.FieldByName('年龄').AsString); tmp.SubItems.Add(ADOQuery1.FieldByName('性别').AsString); next;//加 end; end; listview1.Items.endUpdate;
showmessage('找不到记录!')
else
begin ListView1.Items.Clear;
tmp:=ListView1.Items.Add;
tmp.Caption:=ADOQuery1.FieldByName('姓名').AsString;
tmp.SubItems.Add(ADOQuery1.FieldByName('年龄').AsString);
tmp.SubItems.Add(ADOQuery1.FieldByName('性别').AsString);end;
end;
if adoquery1.Eof then
showmessage('找不到记录!')
else
begin
ListView1.Items.Clear;
tmp:=ListView1.Items.Add;
tmp.Caption:=ADOQuery1.FieldByName('姓名').AsString;
tmp.SubItems.Add(ADOQuery1.FieldByName('年龄').AsString);
tmp.SubItems.Add(ADOQuery1.FieldByName('性别').AsString);
next;//加
end;
end;
listview1.Items.endUpdate;