我想在Edit中输入一值,按确定后,如何让dgbrid中显示符合这个值的所有记录?能给一下具体的代码吗???谢谢

解决方案 »

  1.   

    with dbgrid.datasource.dataset do
    begin
      Close;
      sql.text:='select * from tablename where fieldName='+QuotedStr(trim(edit.text));
      Open;
    end;
      

  2.   

    假设你的DBGRID关联的数据集是table1
    在edit的exit事件里写:
    procedure TForm1.Edit1Exit(Sender: TObject);
    begin
      table1.filter:=edit1.text;
      table1.filtered:=true;
    end;
    如果是数据集是QUERY,那直接传参数(如楼上的)