Question

你好我今天运行这个代码，但问题是当字段上有相同的数据时它不会循环但只显示它过滤的第一个数据。这是代码

ADOTable1.First;
if ADOTable1.Locate('Last', Edit1.Text, []) then
begin
  Label1.Caption := ADOTable1.FieldByName('Last').AsString;
  Label2.Caption := ADOTable1.FieldByName('First').AsString;
  Label3.Caption := ADOTable1.FieldByName('address').AsString;
  Next;
end 
else
begin
  Label1.Caption := '';
  Label2.Caption := '';
  Label3.Caption := '';
end;

Answer 1

Locate找到与DataSet中指定条件匹配的 第一个 记录。
如果找到记录，该记录将成为活动/当前记录它不能用于定位“下一步”匹配。您可能希望Filter / FindFirst使用FindNext条件，例如：

DataSet.Filter := 'Last = ''' + Edit1.Text + '''';
if DataSet.FindFirst then
begin
  ShowMessage('Found First!');
  while DataSet.FindNext do
  begin
    ShowMessage('Found Next!');
  end;
end;

如果要筛选符合条件的所有记录，只需使用：

DataSet.Filter := 'Last = ''' + Edit1.Text + '''';
DataSet.Filtered := True; // apply filter for the dataset

现在只有符合过滤条件的记录才能在DataSet中使用然后迭代DataSet：

DataSet.First;
while not DataSet.Eof do
begin
  // do something with the record
  DataSet.Next;
end;

Answer 2

感谢。昨晚到目前为止得到了这段代码

procedure TMain.Button1Click(Sender: TObject);

begin
ADOTable1.First;
while not ADOTable1.EOF do
begin
if (ADOTable1.FieldByName('Last Name').AsString = edit1.Text)
then begin
Label1.Caption := ADOTable1.FieldByName('Last Name').AsString;
Label2.Caption := ADOTable1.FieldByName('First Name').AsString;
Label3.Caption := ADOTable1.FieldByName('MI').AsString;
end;
ShowMessage('click ok for next profile');
ADOTable1.Next;
end;

它可能与您给出的代码相同，但是此代码搜索数据库网格上的每一行，因此每行都会按下确定按钮一次。可以单击“确定”，然后代码将搜索下一行匹配数据而不是搜索每一行？

如何在字段中使用相同数据遍历表格？

2 个答案: