我使用了combobox來選取某欄位的資料… 當選取後，我要將符合的資料一筆一筆加入listbox… 卻一直造成當掉的情況…sql一直跑…畫面關不掉… 是不是那裡有錯呢？ Query1.first; while not Query1.Eof do begin if Query1.Locate('dep_scname',combobox1.Text,[])then begin listbox1.Items.Add(Query1.fieldbyname('TEA_CNAME').asstring '<' Query.fieldbyname('TEA_MAIL').asstring '>'); Query.Next; end; end;

Hello try this :

       if Query1.Locate('dep_scname',combobox1.Text,[])then
   begin
      listbox1.Items.Add(Query1.fieldbyname('TEA_CNAME').asstring '<' Query.fieldbyname('TEA_MAIL').asstring '>');
   end;

------


我不是高手, 高手是正在銀幕前微笑的人.

1.既然你一筆一筆的加入ListBox當中，怎麼可以使用While迴圈咧～ 2.問題出在Query每次只有Locate到一筆資料，Locate到資料其實程式就應該 結束了，但是你使用了While迴圈，假設你有10筆資料，Locate到的資料是 第五筆，每次Query都移動指標停在第五筆資料，怎麼會有Eof的一天～ 3.所以嚕～拿掉你的迴圈應該就可以嚕～ Just try it .. ^o^

如Mecer所說, 在while loop中locate你始終只找到第一符合的,不會結束    我要將符合的資料一筆一筆加入listbox… 你可以用filter

  Query1.filtered:=False;
  Query1.filter:='dep_scname=' quotedstr(Combobox1.text);
  Query1.filtered:=True;
  Query1.first;
  while not Query1.Eof do  begin
    listbox1.Items.Add(Query1.fieldbyname('TEA_CNAME').asstring '<' Query.fieldbyname('TEA_MAIL').asstring '>');
    Query.Next;
  end;
  query1.filtered:=False;

引言: 如Mecer所說, 在while loop中locate你始終只找到第一符合的,不會結束 我要將符合的資料一筆一筆加入listbox… 你可以用filter

  Query1.filtered:=False;
  Query1.filter:='dep_scname=' quotedstr(Combobox1.text);
  Query1.filtered:=True;
  Query1.first;
  while not Query1.Eof do  begin
    listbox1.Items.Add(Query1.fieldbyname('TEA_CNAME').asstring '<' Query.fieldbyname('TEA_MAIL').asstring '>');
    Query.Next;
  end;
  query1.filtered:=False;

呵…謝啦…我試出來了…^^… 謝謝大家囉…