主题：[求助]表的显示位置问题

我现在遇到的问题是：我在窗口中动态加载多张表采用Select的方式。由于表的字段过多，当我点击表的中间位置时，整张表都往右移动，导致表左侧的字段无法看到，必须拖动滚动条往左移动去看想要的内容，这个问题怎么处理

 动态显示表格后，让表格获取焦点，之后，再点击表格，如

 

e.Form.controls("Table1").Select

或者drawcell事件，写代码

 

Dim ary() As String = e.Table.name.Split("_")
If ary.length = 2 Then
    forms(ary(0)).controls(ary(1)).Select
End If

老师，不是很明白，可以说清楚点吗

表格DrawCell事件，写代码

 

Dim ary() As String = e.Table.name.Split("_")
If ary.length = 2 Then
    forms(ary(0)).controls(ary(1)).Select
End If

老师，出现这种现象的原因有哪些

 

焦点不在table控件就会有此问题。

 

用5楼代码不行？

 

实例发上来看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:磁业 (5).foxdb

Dim ary() As String = e.Table.name.Split("_")
If ary.length = 2 AndAlso forms(ary(0)).ActiveControl IsNot Nothing AndAlso forms(ary(0)).ActiveControl.name <> ary(1) Then
    forms(ary(0)).controls(ary(1)).Select
End If

timertick

 

e.Form.controls("订单明细").Select()
e.Form.TimerEnabled = False

 

afterload

 

e.form.TimerInterval = 1000
e.Form.TimerEnabled = True