请大虾们帮忙,bow,thanks all

Question

//1 参考
Query1.SQL.Text := 'SELECT COUNT(*) FROM Table1 WHERE 你的条件';
Query1.Open;
Edit1.Text := Query1.Fields[0].AsString;
Query1.Close;//2 参考
Query1.SQL.Text := 'SELECT * FROM Table1 WHERE 你的条件';
Query1.Open;
vFieldNames := '字段1;字段2;字段3';
//vFieldNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
while not Query1.Eof do begin
  Table1.Append;
  Table1[vFieldNames] := Query1[vFieldNames];
  Query1.Next;
  Table1.Post;
end;
Query1.Close;

Answer 1

//1 参考
Query1.SQL.Text := 'SELECT COUNT(*) FROM Table1 WHERE 你的条件';
Query1.Open;
Edit1.Text := Query1.Fields[0].AsString;
Query1.Close;//2 参考
Query1.SQL.Text := 'SELECT * FROM Table1 WHERE 你的条件';
Query1.Open;
vFieldNames := '字段1;字段2;字段3';
//vFieldNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
while not Query1.Eof do begin
  Table1.Append;
  Table1[vFieldNames] := Query1[vFieldNames];
  Query1.Next;
  Table1.Post;
end;
Query1.Close;