各位高手～ 想請你們幫個忙，我寫的程式出現了一個小問題， 那就是我使用了三個query，我顯示資料的方式是用dbedit來顯示， 但當我執行到第二個query時，我的dbedit不會顯示出query2的 第一筆資料，第三個query也是發生同樣的問題，能否請各位高手幫我 看看我的程式那裡有問題？謝謝！ 以下為我部份的程式碼： procedure TForm1.Button1Click(Sender: TObject); begin if query1.Eof then begin query2.Open; dbedit1.DataSource:=datasource2; dbedit2.DataSource:=datasource2; dbedit3.DataSource:=datasource2; dbedit4.DataSource:=datasource2; dbedit1.DataField:='員工編號'; dbedit2.DataField:='姓名'; dbedit3.DataField:='到職日期'; dbedit4.DataField:='職稱'; if query2.Eof then begin query3.Open; dbedit1.DataSource:=datasource3; dbedit2.DataSource:=datasource3; dbedit3.DataSource:=datasource3; dbedit4.DataSource:=datasource3; dbedit1.DataField:='員工編號'; dbedit2.DataField:='姓名'; dbedit3.DataField:='到職日期'; dbedit4.DataField:='職稱'; if query3.Eof then begin button2.Show; button1.Hide; end else begin j:=''; k:=0.0; x[i,0]:=dbedit1.Text; //員工編號 x[i,1]:=dbedit2.Text; //姓名 x[i,2]:='1'; //年資權數 query3.Next; end; end else begin j:=''; k:=0.0; x[i,0]:=dbedit1.Text; //員工編號 x[i,1]:=dbedit2.Text; //姓名 x[i,2]:='1'; //年資權數 query2.Next; end; end else begin j:=''; k:=0.0; x[i,0]:=dbedit1.Text; //員工編號 x[i,1]:=dbedit2.Text; //姓名 x[i,2]:='1'; //年資權數 query1.Next; end; end; ps：這是我第一次寫delphi資料庫的程式，所以程式又臭又長的，讓各位高手 見笑了！希望各位高手能幫個忙！謝謝！ [Delphi]=*VaKa*=is~me

------
[Delphi]=*VaKa*=is~me