遍历数据窗口中的每一个对象

string ls_objects,ls_obj
integer li_pos
ls_objects   =   dw_1.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_1.Describe(ls_obj   +   '.type')   =   'text'   and  (dw_1.Describe(ls_obj+".band")   =   'summary'   )     and  (dw_1.Describe(ls_obj+".visible")   =   "1"   )   then   //可见的  
  //你的操作  
  end   if  
loop