怪哉! 狀況一: 只有一個from 去run rave(RvProject1)時sql ... where條件成立 procedure TForm1.Button1Click(Sender: TObject); begin RvProject1.Execute; end; //先去查詢之後顯示在DBGrid1上,成立 procedure TForm1.Button2Click(Sender: TObject); var s:string; begin s:='01222222'; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from hcompany'); adoquery1.SQL.Add(' where companyno < ''' s ''' '); adoquery1.Close; adoquery1.Open; end; 僅顯示 companyno < '01222222' ---------------------------------- 狀況二: 如果form1 -> 僅放一個button1 procedure TForm1.Button1Click(Sender: TObject); begin Form2:= TForm2.Create(self); Form2.showmodal; end; form2 僅放sbutton1,sbutton2,DBGrid1,DataSource1,ADOQuery1 procedure TForm2.sButton1Click(Sender: TObject); begin RvProject1.Execute; end; //先去查尋之號顯示在DBGrid1上,成立 procedure TForm2.sButton2Click(Sender: TObject); var s:string; begin s:='01222222'; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from hcompany'); adoquery1.SQL.Add(' where companyno < ''' s ''' '); adoquery1.Close; adoquery1.Open; end; DBGrid1僅顯示 companyno < '01222222' 按sButton1Click RvProject1.Execute; run 時還是把所有record Preview list 出來,不知為何 ? 發表人 - nick167 於 2003/05/10 01:11:32

引言:

將 ADOQuery1,DataSource1,RvDataSetConnection1,不能放在form2 否則 where .... 條件是不被接受的 新增一個 DataModule 將 ADOQuery1,DataSource1,RvDataSetConnection1放置DataModule 內 run 時 where 條件才成立,(不能省DataModule) 以上經過一天所得到結果,提供日後初學rave者參考