Foxtable(狐表)用户栏目专家坐堂 → 如何让table中的滚动条显示在左面


  共有1930人关注过本帖树形打印复制链接

主题:如何让table中的滚动条显示在左面

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 22:31:00 [显示全部帖子]

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

 

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

 

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


 回到顶部