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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按钮命令如何写？

共有25347人关注过本帖树形打印复制链接主题：按钮命令如何写？

狐狸爸爸

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

加好友

发短信

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

Post By：2008/12/2 16:33:00 [显示全部帖子]

按钮代码:

Static Name As string
If Name = "视图1"
Name = "视图2"
Else
Name = "视图1"
End if
Tables("表名").OpenView(Name)
e.Sender.Text = Name

[此贴子已经被作者于2008-12-2 16:34:42编辑过]

狐狸爸爸

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

加好友

发短信

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

Post By：2008/12/2 16:52:00 [显示全部帖子]

以下是引用ybil在2008-12-2 16:43:00的发言：
也可通过判断某列如A是否可见来切换.

with CurrentTable
      if .Cols("A").Visible = True Then
           .OpenView("视图2")
       Else
           .OpenView("视图1")
       End If
End with

NND，还是这个代码厉害一些。
图片点击可在新窗口打开查看

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

主题：按钮命令如何写？