procedure TF_Main.SpeedButton5Click(Sender: TObject);
    var
strTheDate:String;
begin
    strTheDate:=ChangeDate1(DateTimePicker1.Date);
    QPark.SQL.Clear;
    QPark.SQL.add('Select DISTINCT CardNo,ParkDate,ParkTime,MachineNo,Msg From Park where ParkDate=' '''' strTheDate '''');
    showmessage(Qpark.SQL.Text);
    QPark.Close;
    QPark.Open;
end;

ChangeDate1 是我自己的 function ，回傳值以 ShowMessage 秀出過，為正常日期格式，QPark是TADOQuery，DBGrid 的 DataSource 設為我的 DataSource1，DataSource1 的 DataSet 設為 QPark，TADOConnection1 於TF_Main.FormShow 時確定連上資料庫 park.mdb 檔。 以上程式碼，第一次按鈕執行時沒問題， DBGrid 中有出現資料，但 CardNo 欄位還是出現重複的資料，第二次按鈕執行，則出現視窗【QPark : Canot perform this operation on an open dataset .】，第三次按鈕執行，則出現視窗【可能是 BOF 或 EOF 的值為 True，或目前的紀錄已被刪除。所要求的操作需要目前的紀錄。】，第四次按鈕執行，則出現視窗【Access violation at address 0047029A in module Park.exe , Read of address 00000000 .】依此類推，一直重複這三個錯誤訊息視窗。 真是弄不懂問題出在那兒阿 < >~~先謝謝各位的幫忙囉< >

QPark.Close;這一列是否移至begin的下一列

試一試... with 這個關鍵字很好用, 可以讓程式碼比較簡潔哦!! procedure TF_Main.SpeedButton5Click(Sender: TObject); varstrTheDate:String; begin strTheDate:=ChangeDate1(DateTimePicker1.Date); with QPark do begin QPark.Close; //這兒要先關掉 query SQL.Clear; QPark.SQL.add('Select DISTINCT CardNo,ParkDate,ParkTime,MachineNo,Msg From Park where ParkDate=' '''' strTheDate ''''); showmessage(Qpark.SQL.Text); QPark.Open; QPark.Close; end; end; 發表人 - dinokuo 於 2002/10/03 12:19:54