主题：移动开发，在筛选一个数据时，如何把同行逻辑字段结果展示在同页开关中？

这个意思？

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","增加客户")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddSwitch("hy","会员",True)
            .AddSwitch("vip","VIP客户")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "true", "button").Attribute = "onclick=""vip.setAttribute('checked', true)"""
            .Add("btn1", "false", "button").Attribute = "onclick=""vip.removeAttribute('checked')"""
        End With
        e.WriteString(wb.Build) '生成网页
End Select