同上
menu l_menu
string ls_libraries[]
lb_menu = findclassdefinition(菜单的名字,ls_libraries)
l_menu = create using lb_menu.name
for i = 1 to upperbound(l_menu.item)
这里要用到递归
next
大体思路是这样的。这样做可以得到当前路径任意一个PBL文件中菜单的相关信息,而不局限在当前菜单(即楼上老兄所说的MENUID的问题)。前段时间做用户授权控制到菜单级遇到过这样的问题。
建议,多看看menu对象,尤其是item属性