自己的一段程序

///////////////////////修改数据窗口标签/////////////////////////////
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