在线等候,高手请进

[yexiaozi2004]

procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;
这段查询语句中的Where语句我想要他在满足rq这个条件的同时也满足sqbh应该如何来写

[vpoor]

adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');

[yexiaozi2004]

能写完整来吗
就是在adoquery1.SQL.Add('where rq='''+edit1.text+'''')中写完整来吗

怎么来连上你写的and

[stan001140]

就是把vpoor的那句添在你主句下面啊！

[Kshape]

adoquery1.SQL.Add('where rq='''+edit1.text+'''');
修改为：
adoquery1.SQL.Add('where rq='''+edit1.text+'''+ and sqbh=.....');
省略号处加上你自己的条件就可以啦

[vpoor]

procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+''''); //这里
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;

[ChinaEinstein]

这要就可以了.呵呵..用AND连一下
procedure TForm7.Button1Click(Sender: TObject);
begin
if (edit1.Text='')and(edit2.Text='')then
begin
showMessage('没有需要查询的记录，请重新确认');
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from stockin');
adoquery1.SQL.Add('where rq='''+edit1.text+'''');
adoquery1.SQL.Add(' and sqbh='''+edit2.text+'''');
adoquery1.Open;
if adoQuery1.RecordCount=0 then
begin
showmessage('没有需要查询的记录，请重新确认');
End;

[ChinaEinstein]

哇, 看问题这会就有人回答了,还挺快的呢

[yexiaozi2004]

谢谢大家