[求助]模式窗口如何关闭? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]模式窗口如何关闭?

共有2774人关注过本帖树形打印复制链接主题：[求助]模式窗口如何关闭?

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

[求助]模式窗口如何关闭? 发帖心情

Post By：2014/6/5 15:15:00 [显示全部帖子]

系统有一模式窗口,项目打开后自动打开,窗口的关闭按钮设置"false",问如何关闭这个模式窗口？如上传示图
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140605151050.png

此主题相关图片如下：12.png

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/5 15:27:00 [显示全部帖子]

现在的问题是模式窗口已做，而关闭按钮没做，系统已无法进入编辑，怎办？

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/5 15:50:00 [显示全部帖子]

加载多个表，代码

If DataTables.Contains("产品") = False Then

DataTables.Load("产品|订单|订单明细")
End If

在那个事件里用
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140605154829.png

啊？

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/5 15:58:00 [显示全部帖子]

在按钮里设置好象没用啊？通常在那个事件里用？

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/5 16:05:00 [显示全部帖子]

在按钮里设置后，点击按钮后，并不能加载表（把表显示出来），我也不是要加载表数据，怎办？

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/5 16:06:00 [显示全部帖子]

在按钮里设置后，点击按钮后，并不能加载表（把表显示出来），我也不是要加载表数据，怎办

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/5 16:07:00 [显示全部帖子]

此主题相关图片如下：ds.png

在按钮里设置后，点击按钮后，并不能加载表（把表显示出来），我也不是要加载表数据，怎办

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/6 16:39:00 [显示全部帖子]

可视化授权的实现,帮助里好象都是针对表和列，项目事件LoadUserSetting中，加入如下代码：

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = true
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

若对按钮，窗口中的控件，代码如何写？

jk362223

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

加好友

发短信

等级：一尾狐帖子：422 积分：2708 威望：0 精华：0 注册：2012/2/10 18:12:00

Post By：2014/6/6 16:54:00 [显示全部帖子]

要是也能如表列，设置好后，通过表，就能实现多好，是动态的，在窗口中设置总是交付使用后不能改就有问题了，如“录入窗口与权限管理”中“”按钮的授权“的代码

If User.Group = "经理" Then
'原来的代码
Else
MessageBox.show("你无权执行此项操作!")
End If

我想有个可视化授权的表，对窗口中的控件

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

主题：[求助]模式窗口如何关闭?