控制窗口中的button按钮不显示提示错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

提示：从字符串“统考成绩表”到类型“Boolean”的转换无效。（统考成绩表在“主窗口项目” 列中，窗口中有多个button按钮，如：统考成绩表，这按钮是打开统考成绩表。）

[此贴子已经被作者于2020/2/15 0:31:07编辑过]

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