Foxtable(狐表)用户栏目专家坐堂 → 控制窗口中的button按钮不显示提示错误


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

主题:控制窗口中的button按钮不显示提示错误

帅哥哟,离线,有人找我吗?
透明人生
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
控制窗口中的button按钮不显示提示错误  发帖心情 Post By:2020/2/15 0:26:00 [显示全部帖子]

用户注册表是可视授权表。

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 drr As DataRow In DataTables("用户注册表").Select("分组名 = '" & _UserGroup & "'" )
If drr("主窗口项目") Then
 Forms(drr("表名")).Controls(drr("主窗口项目")).Visible = Not drr("不可见")
 End If
Next
End If

提示:从字符串“统考成绩表”到类型“Boolean”的转换无效。(统考成绩表在“主窗口项目” 列中,窗口中有多个button按钮,如:统考成绩表,这按钮是打开统考成绩表。)
[此贴子已经被作者于2020/2/15 0:31:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
透明人生
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/2/15 14:29:00 [显示全部帖子]

If drr("主窗口项目") Then   是选择内容,“主窗口项目”中字符,其中字符就是主窗口中button按钮的名称。
 现在改为:If drr.isnull("主窗口项目") = false Then   ,提示找不到主窗口控件。

 回到顶部
帅哥哟,离线,有人找我吗?
透明人生
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1726 威望:0 精华:0 注册:2019/10/19 23:00:00
  发帖心情 Post By:2020/2/15 22:56:00 [显示全部帖子]

谢谢,老师!我现在直接改为控制表中的列。对于这种方法,以后我再试试。

 回到顶部