各位前輩好,
我是會員 560927, 最近做一個專案,資料庫是 access , 有一段程式, 如下:
QUery1.Active:=False;
QUery1.SQL.Clear;
QUery1.SQL.Add('Select * From ffm01');
QUery1.Active:=True;
query1.first;
while not (query1.eof) do begin
systb.append;
systbffa00c.asstring:=query1.FieldByName('ffa00c').asstring;
systbffa01c.asstring:=query1.FieldByName('ffa01c').asstring;
systbffa03c.asstring:=query1.FieldByName('ffa03c').asstring;
systbffa04c.asstring:=query1.FieldByName('ffa04c').asstring;
systbffa05c.asstring:=query1.FieldByName('ffa05c').asstring;
systbffa06c.asstring:=query1.FieldByName('ffa06c').asstring;
systbffa07i.asstring:=query1.FieldByName('ffa07i').asstring;
systbffa08c.asstring:=query1.FieldByName('ffa08c').asstring;
systb.post;
query1.next;
end;
可是一旦執行到 systb.post 程式就被 hold 住(好像被access lock 住);
各位前輩這種情況不知要如何解決? 謝謝!!