dw.Describe

 公共函数集锦（四）用来获得datawindow中不同位置的text、column和compute信息的集合

//====================================================================
// Function: uf_getdwcontent
//--------------------------------------------------------------------
// Description: 用来获得datawindow中不同位置的text、column和compute信息的集合
//      创建一个包括name、位置、type、x坐标、y坐标、height、width、tabsequence的datastore，保存数据
//              并返回
//--------------------------------------------------------------------
// Arguments: 
// datawindow 数据窗体dw
// string 要获得数据的位置pos：header、detail、summary或footer
//--------------------------------------------------------------------
// Returns: datastore
//--------------------------------------------------------------------

string ls_objects,ls_obj,ls_sql,ls_err,ls_text,la_columns[]
long li_pos

datastore lds_sort //返回的datastore
string ls_pbver //pb 版本信息
environment env //环境变量
getenvironment(env)
ls_pbver = string(env.pbmajorrevision)

lds_sort = create datastore//创建排序列 datastore
ls_sql = 'column=(type=char(100) name = zname dbname="zname" )' + '~r~n' + &
'column=(type=char(7) name = zpos dbname="zpos" )' + '~r~n' + &
'column=(type=char(7) name = ztype dbname="ztype" )' + '~r~n' + &
'column=(type=long name = ztabsequence dbname="ztabsequence" )' + '~r~n' + &
'column=(type=long name = zx dbname="zx" )' + '~r~n' + &
'column=(type=long name = zy dbname="zy" )' + '~r~n' + &
'column=(type=long name = zheight dbname="zheight" )' + '~r~n' + &
'column=(type=long name = zwidth dbname="zwidth" )' + '~r~n'

ls_sql = 'release ' + ls_pbver + ';~r~ntable(' + ls_sql + ')'
lds_sort.create(ls_sql, ls_err)

integer i,ii

ls_objects = dw.Describe("datawindow.objects")
do while (pos(ls_objects,"~t") > 0)
 li_pos = pos(ls_objects,"~t")
 ls_obj = left(ls_objects,li_pos - 1)
 ls_objects = right(ls_objects,len(ls_objects) - li_pos)
 if (dw.Describe(ls_obj+".band") = pos )  and &
  (dw.Describe(ls_obj+".visible") = "1" ) then   
  lds_sort.insertrow(0)
  lds_sort.setitem(lds_sort.rowcount(), 'zname', ls_obj)
  lds_sort.setitem(lds_sort.rowcount(), 'zpos', pos)  
  lds_sort.setitem(lds_sort.rowcount(), 'ztype', dw.Describe(ls_obj + '.type')) 
  lds_sort.setitem(lds_sort.rowcount(), 'ztabsequence', long(dw.Describe(ls_obj + '.tabsequence')))
  lds_sort.setitem(lds_sort.rowcount(), 'zx', long(dw.describe(ls_obj + '.x')))
  lds_sort.setitem(lds_sort.rowcount(), 'zy', long(dw.describe(ls_obj + '.y')))
  lds_sort.setitem(lds_sort.rowcount(), 'zheight', long(dw.describe(ls_obj + '.height')) + ii - 1)
  lds_sort.setitem(lds_sort.rowcount(), 'zwidth', long(dw.describe(ls_obj + '.width')))    
 end if 
loop
   ls_obj=ls_objects
 if (dw.Describe(ls_obj+".band") = pos )  and &
  (dw.Describe(ls_obj+".visible") = "1" ) then   
  lds_sort.insertrow(0)
  lds_sort.setitem(lds_sort.rowcount(), 'zname', ls_obj)
  lds_sort.setitem(lds_sort.rowcount(), 'zpos', pos)  
  lds_sort.setitem(lds_sort.rowcount(), 'ztype', dw.Describe(ls_obj + '.type')) 
  lds_sort.setitem(lds_sort.rowcount(), 'ztabsequence', long(dw.Describe(ls_obj + '.tabsequence')))
  lds_sort.setitem(lds_sort.rowcount(), 'zx', long(dw.describe(ls_obj + '.x')))
  lds_sort.setitem(lds_sort.rowcount(), 'zy', long(dw.describe(ls_obj + '.y')))
  lds_sort.setitem(lds_sort.rowcount(), 'zheight', long(dw.describe(ls_obj + '.height')) + ii - 1)
  lds_sort.setitem(lds_sort.rowcount(), 'zwidth', long(dw.describe(ls_obj + '.width')))    
 end if

//返回结果
return lds_sort