以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何遍历未打开窗体的菜单名称  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141136)
--  作者：2900819580
--  发布时间：2019/9/22 8:31:00
--  [求助]如何遍历未打开窗体的菜单名称

如下代码是遍历当前窗体所有菜单，但如果窗体没有打开，如窗体名称是 “物料表”

Dim fi As String
For Each st As WinForm.Strip In e.form.Strips
    For Each it As WinForm.StripItem In st.Items
    If fi > "" Then fi &= "|"
        fi &=  it.Name
    Next
Next
InputValue(fi,"","")

 

代码应该怎么修改1
--  作者：狐狸爸爸
--  发布时间：2019/9/22 10:17:00
--  
没有打开，是不能遍历的