X:= ADOQuery1.FieldByName('本级节点号').asinteger;
if Xnode=2 then
begin
str:= Node.Text;
ClientDataSet1.Close;
StrSQL:='select * from Input Where 变电站名 in (select 节点名称 from Tree where 上级节点号 = X)';X是Integer变量,
不能直接在引号内。
StrSQL:='select * from Input Where 变电站名 in (select 节点名称 from Tree where 上级节点号 =‘+
IntToStr( X)+')';
if Xnode=2 then
begin
str:= Node.Text;
ClientDataSet1.Close;
StrSQL:='select * from Input Where 变电站名 in (select 节点名称 from Tree where 上级节点号 = X)';X是Integer变量,
不能直接在引号内。
StrSQL:='select * from Input Where 变电站名 in (select 节点名称 from Tree where 上级节点号 =‘+
IntToStr( X)+')';
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货