1、你要控制多少层菜单,你就要写多少个for next 循环。
For Each ssit as object in sit.items
For Each sssit As Object in ssit.items
2、调试的时候,加入msgbox弹出对应的值,看看是否正确。