X
xfh533
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在要查找一个excel表格里的记录,excel是用一个adoquery(名字Q_sql)连的，从第5行开始读取数据并依次取出第六行，第七行直到数据尾插入另一个库中，那个库用AdoImpot连接，代码如下:
Q_sql.First;
Q_sql.Next;
Q_sql.Next;
Q_sql.Next;
while not Q_sql.Eof do
begin
adqImport.FieldByName('yxgl').Value := Trim(Q_sql.Fields[33].AsString);
adqImpor.Post;
end;
Q_sql.Next;
这样写的话它倒是从第五行开始读数据，但插数据时是隔三行插一个，是不是因为每次插完一个数据它的指针又指到了Q_sql.first，请问这个问题怎么解决？
Q_sql.First;
Q_sql.Next;
Q_sql.Next;
Q_sql.Next;
while not Q_sql.Eof do
begin
adqImport.FieldByName('yxgl').Value := Trim(Q_sql.Fields[33].AsString);
adqImpor.Post;
end;
Q_sql.Next;
这样写的话它倒是从第五行开始读数据，但插数据时是隔三行插一个，是不是因为每次插完一个数据它的指针又指到了Q_sql.first，请问这个问题怎么解决？