如何显示查找后的数据！！！！

Question

with table1 do
     begin
     active:=true;
     indexfieldnames:='Filmmen';
     setkey;
     if gotokey then
       showmessage('查找成功!')
在listbox中显示查找后的数据！！！！

Answer 1

用一个循环就可以了:with table1 dobegin
 for i:=0 to fieldcount-1 do
 begin
 listbox.items.add(feids[i].asstring);
 end;
end;差不多了吧!

Answer 2

哎, 方法至少有三種.function Lookup(const KeyFields: String; const KeyValues: Variant; const ResultFields: String): Variant;這個方法足夠滿足你的需求

Answer 3

能不能举个例子呀！！
将查找到的全部数据显示在listbox

Answer 4

用得着用listbox吗？直接用dbgrid显示不就行了？

Answer 5

建议用LISTVIEW或dbgrid或STRINGGRID

Answer 6

procedure TfrmInsPeriod.btnGenerateClick(Sender: TObject);
var
  V: Variant;
begin      V := qySummary.Lookup('PeriodCode', S, 'PeriodCode');      if VarIsNull(V) then
      begin
     end;

Answer 7

对不起，我没有说清楚，是查找完后，只显示特定的。
比如只显示“fieldbyname('name').asstring”的全部，或是部分符合条件的。

Answer 8

with table1 do
     begin
     indexfieldnames:='Filmmen';
     while not eof do
     setkey;
     if findkey (edit1.text) then
       showmessage('查找成功!')
       listbox1.Items.Text:=fieldbyname('Filmname').asstring;就是这样了，可是用eof光死机，而且还查不出来

Answer 9

该用query吧.query1.openwith not query1.eof do
begin
   listbox1.items.add(query1.parameters.parabyname('xxx').value);
   query1.next;
end;