a:=getbklist('申万行业');
r:=array();
for i:=0 to length(a)-1 do
begin
hy:=a[i];
echo hy;
shy:=getbklist('申万行业\\'+hy);
for j:=0 to length(shy)-1 do
begin
tmp:=getbk(shy[j]);
tmp:=select thisrow as '代码',hy as '申万一级行业',shy[j] as '申万二级行业' from tmp end;
r:=r union tmp;
end;
end;
return r;