Z
zhch1100
Unregistered / Unconfirmed
GUEST, unregistred user!
环境 d6+ado+access2000
dwdm存放基础信息,有 dwbh ,dwmc 两个字段
dwbh dwmc
01 一队
02 二队
03 办公室
. .
. .
. .
gzxx存放细节信息, 有 dwbh,xm,zg,xj,...等字段
dwbh xm zg xj ...
01 张 30 0 ...
01 李 25 5 ...
02 肖 30 0 ...
02 王 28 2 ...
. . . . ...
. . . . ...
. . . . ...
dwdm和gzxx有共同字段dwbh
对dwdm进行动态查询后,再对gzxx进行查询
要求在gzxx中找出所有与dwdm查询结果中相同dwbh的信息,
如何实现?比如在form1窗体中的edit1中输入‘队’,
在dbgrid1中就会显示:
dwbh xm zg xj ...
01 张 30 0 ...
01 李 25 5 ...
02 肖 30 0 ...
02 王 28 2 ...
if edit1.Text<> '' then
begin
ADOQuery2.close;
ADOQuery2.SQL.clear;
ADOQuery2.SQL.Add('select * from gzxx where 1:=1');
ADOQuery2.SQL.Add(' and where dwbh in ('select dwbh from dwdm where dwmc like'+'%'+edit1.text+'%')');
ADOQuery2.Open;
end;
if edit1.Text= '' then
begin
ADOQuery2.close;
ADOQuery2.SQL.clear;
ADOQuery2.SQL.Add('select * from gzxx where 1:=1');
ADOQuery2.Open;
end;
运行是根本就通不过。
dwdm存放基础信息,有 dwbh ,dwmc 两个字段
dwbh dwmc
01 一队
02 二队
03 办公室
. .
. .
. .
gzxx存放细节信息, 有 dwbh,xm,zg,xj,...等字段
dwbh xm zg xj ...
01 张 30 0 ...
01 李 25 5 ...
02 肖 30 0 ...
02 王 28 2 ...
. . . . ...
. . . . ...
. . . . ...
dwdm和gzxx有共同字段dwbh
对dwdm进行动态查询后,再对gzxx进行查询
要求在gzxx中找出所有与dwdm查询结果中相同dwbh的信息,
如何实现?比如在form1窗体中的edit1中输入‘队’,
在dbgrid1中就会显示:
dwbh xm zg xj ...
01 张 30 0 ...
01 李 25 5 ...
02 肖 30 0 ...
02 王 28 2 ...
if edit1.Text<> '' then
begin
ADOQuery2.close;
ADOQuery2.SQL.clear;
ADOQuery2.SQL.Add('select * from gzxx where 1:=1');
ADOQuery2.SQL.Add(' and where dwbh in ('select dwbh from dwdm where dwmc like'+'%'+edit1.text+'%')');
ADOQuery2.Open;
end;
if edit1.Text= '' then
begin
ADOQuery2.close;
ADOQuery2.SQL.clear;
ADOQuery2.SQL.Add('select * from gzxx where 1:=1');
ADOQuery2.Open;
end;
运行是根本就通不过。