设置一个按钮两个功能啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设置一个按钮两个功能啊

共有4575人关注过本帖树形打印复制链接主题：设置一个按钮两个功能啊

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

设置一个按钮两个功能啊 发帖心情

Post By：2013/10/18 10:13:00 [只看该作者]

比如我在面板插入一个按钮然后想点击第一下是隐藏第一列再点击就是显示第一列

不倒的翁

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：476 积分：3523 威望：0 精华：0 注册：2012/12/13 14:23:00

Post By：2013/10/18 10:19:00 [只看该作者]

IIF函数可以满足
http://www.foxtable.com/help/topics/1519.htm

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/18 10:19:00 [只看该作者]

Tables("表A").Cols("第一列").Visible = not Tables("表A").Cols("第一列").Visible

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/10/18 10:20:00 [只看该作者]

按钮的文本属性设为：“隐藏”

If e.Sender.Text = "隐藏" Then
    e.Sender.Text = "显示"
    Tables("表A").Cols("第一列").Visible = False
ElseIf e.Sender.Text = "显示" Then
    e.Sender.Text = "隐藏"
    Tables("表A").Cols("第一列").Visible = True
End If

yangwenghd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2013/10/18 10:35:00 [只看该作者]

我怎么想加几列后就不能用啦兄弟比如同时还有第二列第三列

Bin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/18 10:37:00 [只看该作者]

Tables("表A").Cols("第一列").Visible = not Tables("表A").Cols("第一列").Visible

Tables("表A").Cols("第二列").Visible = not Tables("表A").Cols("第二列").Visible

Tables("表A").Cols("第三列").Visible = not Tables("表A").Cols("第三列").Visible

狐狸爸爸

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/10/18 10:40:00 [只看该作者]

Dim nms() As String = {"第一列","第二列","第三列"}
Dim visible As boolean
If e.Sender.Text = "隐藏" Then
    e.Sender.Text = "显示"
    Visible = False
ElseIf e.Sender.Text = "显示" Then
    e.Sender.Text = "隐藏"
    Visible = True
End If
For Each nm As String In nms
    Tables("表A").Cols(nm).Visible = Visible
Next

按钮的初始标题一开始设置为"显示"或"隐藏"

yangwenghd

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2013/10/18 11:12:00 [只看该作者]

真羡慕你们啊得心应手

下一主题 >> << 上一主题

主题：设置一个按钮两个功能啊