hy1:= getbklist('股票\\行业类别\\中证行业');
  ret:=array();
  for i:=0 to length(hy1)-1 do
  begin
    hy2:=getbklist('股票\\行业类别\\中证行业\\'$hy1[i]);
    for j:=0 to length(hy2)-1 do
    begin
      hy3:=getbklist('股票\\行业类别\\中证行业\\'$hy1[i]$'\\'$hy2[j]);
      ret&=select hy1[i] as '一级行业',hy2[j] as '二级行业',thisrow as '三级行业'
          from hy3 end;
    end
  end
  return ret;