主题：[分享]批量设置窗口菜单权限

写多个for next循环

For Each sit As WinForm.StripItem In e.Form.Strips("主菜单").Items
    sit.enabled = Functions.Execute("ShouQuan","信息识别组",sit.name) '这段代码是蓝老师提供,感谢
    For Each ssit As WinForm.StripItem In sit.Items
        ssit.enabled = Functions.Execute("ShouQuan","信息识别组",ssit.name) '这段代码是蓝老师提供,感谢
    Next
Next