以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如果通过代码左移表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101039) |
||||
-- 作者:zunwoun -- 发布时间:2017/5/24 9:00:00 -- 如果通过代码左移表 我想实现点击表,表自动左移一个位置,怎样实现? |
||||
-- 作者:有点色 -- 发布时间:2017/5/24 9:06:00 --
|
||||
-- 作者:zunwoun -- 发布时间:2017/5/24 10:29:00 -- 怎样指定需左移的表呢? |
||||
-- 作者:有点色 -- 发布时间:2017/5/24 11:05:00 -- Dim tab = basemainform.controls("mainpages") tab.TabPages.Insert(0,tab.Tabpages("表C")) \'移动到第一个位置 |
||||
-- 作者:zunwoun -- 发布时间:2017/5/24 14:54:00 -- 我只想左移一个,不是移到第一的位置,可以实现吗? |
||||
-- 作者:有点色 -- 发布时间:2017/5/24 15:01:00 -- Dim tab = basemainform.controls("mainpages") Dim page = tab.Tabpages("表C") Dim idx As Integer = 0 For i As Integer = 0 To tab.tabpages.count-1 If tab.tabpages(i).name = page.name Then idx = i Exit For End If Next If idx >= 1 Then tab.TabPages.Insert(idx-1,page) |
||||
-- 作者:zunwoun -- 发布时间:2017/5/25 9:56:00 -- 我的代码是放在CurrentTableChanged事件中,希望是我选择一个表,该表左移一个位置,但按照上面的代码,我选择一个表,被选择的一个表就左移一位,但选中的表就变成另外一个表,我无法选择我想要的表 |
||||
-- 作者:有点色 -- 发布时间:2017/5/25 11:47:00 -- 太奇葩的功能,和原先的功能有冲突,无法实现。
请说明你为什么要这样做 |
||||
-- 作者:zunwoun -- 发布时间:2017/5/26 8:54:00 -- 后台数据表太多,我想根据选择频率确定那个数据表靠前,方便查找 |
||||
-- 作者:有点蓝 -- 发布时间:2017/5/26 9:03:00 -- 自己做一个窗口进行管理 |