主题：.AddSelect("资产类别","资产类别","|电子设备|办公家具|其它设备") 如果不在电子设备|办公家具|其它设备 三个范围内的值 怎么实现手动输入呢？

加一个【其它】的选项，如果选择这个，显示一个文本框出来让其输入。

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","列表项目")
            .AddSelect("os","操作系统","iOS|Windows|其它").Attribute="onchange=""if(this.value=='其它'){其它.parentNode.parentNode.removeAttribute('style')}else{其它.parentNode.parentNode.style.display='none'}"""
            .AddInput("其它", "其它", "text").Attribute=""
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.InsertHTML("<script>其它.parentNode.parentNode.style.display='none'</script>")
        e.WriteString(wb.Build) '生成网页
End Select