自己的一段程序

///修改数据窗口标签/

int i
string ls_string_r
//messagebox('',dw_1.Describe("DataWindow.Objects"))
for i=1 to 2
 ls_string_r="t_"+string(i)+".Text="+"'"+"Dept"+string(i)+"'"
 dw_1.Modify(ls_string_r)
next

///控制滚动条/

  string   modstr,pos      
  pos   =   dw_1.Describe("DataWindow.VerticalScrollPosition")  
  modstr="DataWindow.VerticalScrollPosition="+string(long(pos)+100)        
  dw_2.modify(modstr)

//

 if this.getcolumn()=3 then
 this.setcolumn('je')
 dw_2.modify("datawindow.VerticalScrollPosition="+dw_2.describe("je.y")) 
end if