Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动隐藏的扩展列随单元格自动显示


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

主题：自动隐藏的扩展列随单元格自动显示
帅哥哟，离线，有人找我吗？
zoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00 		自动隐藏的扩展列随单元格自动显示  发帖心情 Post By：2017/5/4 17:56:00 [只看该作者]

求大神帮忙

扩展列为多文件，并自动隐藏，如下图

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图17年05月04日1749_2.png
图片点击可在新窗口打开查看

原格式

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图17年05月04日1747_1.png
图片点击可在新窗口打开查看

现在想
点击单元格，自动显示隐藏的扩展列，并自动切换到对应的列

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图17年05月04日1754_3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/4 18:48:00 [只看该作者]

列属性那里，有【自动隐藏】属性，你设置为true

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2017/5/5 13:11:00 [只看该作者]

自动隐藏已经设置了

我的意思是   点击列，对应的隐藏框自动弹出来
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/5 14:15:00 [只看该作者]

比如，弹出第十列的列窗口

 

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "第十列" Then
            b.AutoHiding = False
        End If
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2017/5/5 17:42:00 [只看该作者]

代码放哪里啊  
我放到窗口的afterload  和  表click   事件中，都无效
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/5 18:00:00 [只看该作者]

Dim Isfind As Boolean
For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "第九列" Then
            b.AutoHiding = False
            Isfind = True
            Exit For
        End If
    Next
    If Isfind = False
        For Each b As OBJECT In a.controls
            b.AutoHiding = False
            For Each c As OBJECT In b.controls
                If c.text = "第九列" Then
                    c.parent.SelectedTab = c
                    Return ""
                End If
            Next
            b.AutoHiding = True
        Next
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2017/5/6 9:26:00 [只看该作者]

有点蓝老师，还是出错
 
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.4.22.1
错误所在事件：项目资料,Click
详细错误信息：
未找到类型“C1Button”的公共成员“AutoHiding”。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/6 9:38:00 [只看该作者]

做个例子上来测试

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2017/5/9 14:04:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态扩展列.zip


有点蓝帮忙看看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 14:50:00 [只看该作者]

 Click事件，写代码

 

For Each a As OBJECT In e.Table.grid.Parent.controls
    For Each b As OBJECT In a.controls
        If e.Table.Cols.Contains(b.text) Then
            If B.text = e.Col.name Then
                b.AutoHiding = False
            Else
                b.AutoHiding = True
            End If
        End If
    Next
Next
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询