水平滚动条的问题—增加一新行，如何让水平滚动条在最左端

[zfsusu]

是这样的问题：我用一个 DW 作为输入数据，但是数据窗口对象的列太长了，屏幕大小的 DW 控件还包容不下所有的列。
我写了如下的代码，实现这样的功能：按回车跳转到下一列，如果是最后一列并且是最后一行，则插入一新行。我把光标定位在第一列。但是插入新行后，水平滚动条在最右端，没有实现我要的结果：水平滚动条在最左边，显示前面几列，光标在第一列上。
if this.AcceptText() < 0 then
Return 1
end if

If Lower(this.GetColumnName()) = 'remark' Then //remark为最后一列

//if this.GetColumn() = Long(dw_1.object.datawindow.column.count) then
//我选择了表的所有的列，但在DW 对象中，舍掉了几列，那么上面的代码是不可以吧？
if this.GetRow() = this.RowCount() then
this.Insertrow(0)
this.ScrollToRow(this.GetRow() + 1)
this.SetColumn(1)
Return 1
end if
end if
Send(Handle(this),256,9,Long(0,0))
return 1
请多多指点。多谢！

[daluobo]

在scrollhorizontal时间里面写代码控制可以吧？

[daluobo]

不好意思打错了：
在scrollhorizontal事件里面写代码控制可以吧？

自己想的，没有试过

[zero1977]

spos1 = dw_1.Object.DataWindow.HorizontalScrollPosition

smax1 = dw_1.Describe( &

"DataWindow.HorizontalScrollMaximum")
spos1 = dw_1.Describe( &
"DataWindow.HorizontalScrollPosition")
smax2 = dw_2.Describe( &
"DataWindow.HorizontalScrollMaximum")
pos2 = Integer(spos1) * Integer(smax2) / Integer(smax1)
modstring = "DataWindow.HorizontalScrollPosition=" &
+ String(pos2)
dw_1.Modify(modstring)

[iamxia]

dw_1.object.DataWindow.HorizontalScrollPosition=1

[zfsusu]

多谢，这样的话，上面的代码是应该写在插入新行的下面，对吧？
我去试，试了可以就结贴。

[zfsusu]

（风，来去匆匆）大虾的方法简单明了。
幻影大虾的方法，一时没看懂，怎么有两个 DW，我只有一个的呀？
不过，总归是感谢。
如果幻影大虾能够给我说明一下他的这段代码，在下不胜感激！