Foxtable(狐表)用户栏目专家坐堂 → 生成菜单


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

主题:生成菜单

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/13 20:11:00 [显示全部帖子]

报什么错?菜单名称是否正确?

If e.Table.Current IsNot Nothing Then
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("ShuDaShuJuZiDian").FindRow(dr)
    If wz >=0 Then
        Tables("ShuDaShuJuZiDian").Position = wz
    End If
    Dim enabled As Boolean = Tables("ShuDaShuJuZiDian").current.Isnull("审核")
    msgbox(enabled) '弹出什么值?

    e.form.strips("主菜单").Items("Edit").items("ShenHe").Enabled = enabled
    e.form.strips("主菜单").Items("Edit").items("QuXiaoShenHe").Enabled = Not enabled
    
End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/13 22:54:00 [显示全部帖子]

上级节点不对呀

itm = mnu.Items("ShenHeShenPi")
itm.Items.Add("ShenHe","审核","new.ico",StripItemTypeEnum.MenuItem)


    e.form.strips("主菜单").Items("ShenHeShenPi").items("ShenHe").Enabled = enabled
    e.form.strips("主菜单").Items("ShenHeShenPi").items("QuXiaoShenHe").Enabled = Not enabled

 回到顶部