weixin_40259943
coden-shang
2017-10-20 16:33

权限控制ToolStripMenuItem显示无效

  • toolstripmenuitem
  • net
  • 权限控制

qxmc是从数据库获得的字段名,字段名+ToolStripMenuItem 为menustrip下的ToolStripMenuItem的Name,但是获yhqx是boolean值,编写如下来控制是否显示但是运行后并没有实现,求大神帮忙看下问题出在哪?
Dim uuu As String
For i = 1 To JCXX.Columns.Count - 4
qxmc(i) = JCXX.Columns(i + 3).ColumnName
yhqx(i) = JCXX.Rows(0).Item(qxmc(i))
uuu = qxmc(i) & "ToolStripMenuItem"
Dim kjmc As New Control
kjmc.Name = uuu.ToString
kjmc.Visible = yhqx(i)
Next

  • 点赞
  • 回答
  • 收藏
  • 复制链接分享

0条回答