创建动态报表子程序创建动态报表子程序

创建动态报表子程序     
      
      
  下面的一段报表生成程序摘自于动态报表管理   
  注意   结构:   ldw_table   动态报表表体结构   
                        ldw_parm     动态报表控件结构   
  程序较大,一言难尽,如有兴趣可以来Email     mengfan8868@sina.com   
    
    
  string   select_sql,st_text,modify_st='   ',modify_col='   ',modify_co='   ',   modify_line='   ',modify_table   =   '   '     
  string   dw_style,errors,syntax_str   
  int   i   
  long   lrow   
    
  select_sql   =   "select   "   
  for   i=1   to     dw_parm_length   
  if   ldw_parm[i].object_type   =   'col'   then   
        select_sql   =   select_sql   +   ldw_parm[i].object_name   +','   
  end   if   
  next   
  select_sql=mid(select_sql,1,len(select_sql)   -   1)+"     from   "+ldw_table.table_name+"   "+ldw_table.sql_whereclause   
    
  for   i=1   to   dw_parm_length   
    st_text   =   trim(ldw_parm[i].object_text)   
    if   mid(st_text,1,3)='#v#'   then           //获取sql语句值   
    st_text   =   f_qxs_get_sql_value(st_text)   
    end   if   
      
    choose   case   ldw_parm[i].object_type   
  case   'st'