以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师生成的目录树长度超过窗口的长度,滚动条总是在最下面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158469)

--  作者:weibu
--  发布时间:2020/11/20 20:39:00
--  老师生成的目录树长度超过窗口的长度,滚动条总是在最下面
老师生成的目录树长度超过窗口的长度,滚动条总是在最下面,能否设置使生成的目录树显示最顶端的滚动条
[此贴子已经被作者于2020/11/21 13:54:08编辑过]

--  作者:有点蓝
--  发布时间:2020/11/21 9:17:00
--  
请列出代码详细说明:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
--  作者:weibu
--  发布时间:2020/11/21 14:06:00
--  
老师生成的目录树长度超过窗口的长度,滚动条总是在最下面,能否设置使生成的目录树显示最顶端的滚动条
--  作者:有点蓝
--  发布时间:2020/11/21 14:43:00
--  
控件只有下和右可以显示滚动条。肯定是控件的锚定和停靠没有设置好
--  作者:weibu
--  发布时间:2020/11/21 15:20:00
--  
老师是这样,就是生产的目录树比较长,有滚动条。滚动条是在右边的。打开窗口后显示总是目录树显示最下面的,就是右边的滚动条在下面。能否生成的目录树显示最上面,也就是滚动条在右边的最上端?
[此贴子已经被作者于2020/11/21 15:21:29编辑过]

--  作者:有点蓝
--  发布时间:2020/11/21 15:26:00
--  
应该是选中了最下边的节点吧。把目录树第一个节点设置为选中,或者为可见即可:http://www.foxtable.com/webhelp/topics/0914.htm
--  作者:lsjt_1979
--  发布时间:2020/12/23 13:56:00
--  同问这个问题
窗口中添加table后,由于字段比较多,每次打开后会出现滚动条,但是滚动条总是在最后字段的位置,想让每次打开后都停留在第一个字段的位置



--  作者:有点蓝
--  发布时间:2020/12/23 14:06:00
--  
窗口afterload

tables(“窗口1_table1”).select(0,0)


--  作者:lsjt_1979
--  发布时间:2020/12/23 18:05:00
--  没有作用,不知道啥原因
没有作用,不知道啥原因,代码如下

Select Case e.Form.Controls("TabControl1").SelectedPage.text
    Case "货物明细"
        MainTable = Tables("操作单主界面_销售明细")
    Case "应收账款"
        MainTable = Tables("操作单主界面_销售应收")
    Case "应付账款"
        MainTable = Tables("操作单主界面_销售应付")
End Select

CurrentTable.Select(0,0)


--  作者:有点蓝
--  发布时间:2020/12/24 8:46:00
--  
以下是引用lsjt_1979在2020/12/23 18:05:00的发言:
没有作用,不知道啥原因,代码如下

Select Case e.Form.Controls("TabControl1").SelectedPage.text
    Case "货物明细"
        MainTable = Tables("操作单主界面_销售明细")
    Case "应收账款"
        MainTable = Tables("操作单主界面_销售应收")
    Case "应付账款"
        MainTable = Tables("操作单主界面_销售应付")
End Select

CurrentTable.Select(0,0)

这些如果是窗口表设置MainTable 是没有意义的,MainTable 只能设置主表。

Select Case e.Form.Controls("TabControl1").SelectedPage.text
    Case "货物明细"
        Tables("操作单主界面_销售明细").Select(0,0)
    Case "应收账款"
        Tables("操作单主界面_销售应收").Select(0,0)
    Case "应付账款"
        Tables("操作单主界面_销售应付").Select(0,0)
End Select