- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表的显示位置问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106409)
-- 发布时间：2017/9/8 10:41:00
-- [求助]表的显示位置问题
我现在遇到的问题是：我在窗口中动态加载多张表采用Select的方式。由于表的字段过多，当我点击表的中间位置时，整张表都往右移动，导致表左侧的字段无法看到，必须拖动滚动条往左移动去看想要的内容，这个问题怎么处理
-- 发布时间：2017/9/8 10:46:00
--
动态显示表格后，让表格获取焦点，之后，再点击表格，如
e.Form.controls("Table1").Select
-- 发布时间：2017/9/8 10:50:00
--
或者drawcell事件，写代码
Dim ary() As String = e.Table.name.Split("_")
If ary.length = 2 Then
forms(ary(0)).controls(ary(1)).Select
End If
-- 发布时间：2017/9/8 10:54:00
--
老师，不是很明白，可以说清楚点吗
-- 发布时间：2017/9/8 11:35:00
--
表格DrawCell事件，写代码
Dim ary() As String = e.Table.name.Split("_")
If ary.length = 2 Then
forms(ary(0)).controls(ary(1)).Select
End If
-- 发布时间：2017/9/8 16:36:00
--
老师，出现这种现象的原因有哪些
-- 发布时间：2017/9/8 17:16:00
--
以下是引用积水成渊在2017/9/8 16:36:00的发言：
老师，出现这种现象的原因有哪些
老师，出现这种现象的原因有哪些
焦点不在table控件就会有此问题。
用5楼代码不行？
实例发上来看看。
-- 发布时间：2017/10/19 17:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:磁业 (5).foxdb |
-- 发布时间：2017/10/19 17:52:00
--
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
-- 发布时间：2017/10/31 18:26:00
--
timertick
e.Form.controls("订单明细").Select()
e.Form.TimerEnabled = False
afterload
e.form.TimerInterval = 1000
e.Form.TimerEnabled = True