主题：移动设计，使用部门可以弹出所在部门列表，但是提示报错，然后无法选择使用人列表，求解！

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Select Case e.Path

    Case "index.htm"

        If e.PostValues.Count = 0 Then

            wb.AddForm("","form1","index.htm")

            With wb.AddInputGroup("form1","ipg1","固定资产资料")  

                红色部分代码因特殊原因不能完整显示，请参照图对比！

                
此主题相关图片如下：企业微信截图_15628082238763.png

                With wb.AddButtonGroup("form1","btg1",True)

                    .Add("btn1", "确定", "submit")

                End With

                

                e.WriteString(wb.Build)

            Else '

                '保存并生成增加成功提示页面

                With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页

                    .AddButton("btn1","继续增加","index.htm")

                End With

            End With

        End If

        e.WriteString(wb.Build)

End Select