以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何让table中的滚动条显示在左面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116709)

--  作者:pengjiam
--  发布时间:2018/3/29 16:47:00
--  如何让table中的滚动条显示在左面
同一窗口中有2张表,均有滚动条,打开该窗口后一张表的滚动条靠左显示,一张表的滚动条靠右显示。靠右这张表的滚动如何让其靠左显示?
(另一个窗口中2张表滚动条均靠左显示显示,不知道什么原因。)图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/3/29 17:17:00
--  

AfterLoad,事件,写代码

 

Dim t as Table = e.form.controls("Table1").Table

t.select(0,0)

 

或者改成

 

Dim t as Table = e.form.controls("Table1").Table

t.ScrollPosition = new point(0, 0)


--  作者:foxyuan
--  发布时间:2018/3/29 21:09:00
--  
我的是关联表都是打开默认都是到最右边,主表是靠左,用这段代码好象不起作用
--  作者:有点甜
--  发布时间:2018/3/29 21:32:00
--  
以下是引用foxyuan在2018/3/29 21:09:00的发言:
我的是关联表都是打开默认都是到最右边,主表是靠左,用这段代码好象不起作用

 

点击的时候出问题?还是刚打开的时候就出问题?

 

如果是点击的问题,drawcell事件,写代码

 

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

--  作者:有点甜
--  发布时间:2018/3/29 21:33:00
--  
以下是引用foxyuan在2018/3/29 21:09:00的发言:
我的是关联表都是打开默认都是到最右边,主表是靠左,用这段代码好象不起作用

 

表控件名不要写错

 

Dim t as Table = e.form.controls("Table1").Table

t.select(0,0)


--  作者:foxyuan
--  发布时间:2018/3/29 22:22:00
--  
打开的时间与点击都不对。
是把红色的字改为关联表的名字吧?

--  作者:有点甜
--  发布时间:2018/3/29 22:31:00
--  
以下是引用foxyuan在2018/3/29 22:22:00的发言:
打开的时间与点击都不对。
是把红色的字改为关联表的名字吧?

 

红色改成你table控件的名称。

 

如果还是不行,上传实例测试。