以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  .AddSelect("资产类别","资产类别","|电子设备|办公家具|其它设备") 如果不在电子设备|办公家具|其它设备 三个范围内的值 怎么实现手动输入呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135661)
--  作者：李孝春
--  发布时间：2019/5/31 11:38:00
--  .AddSelect("资产类别","资产类别","|电子设备|办公家具|其它设备") 如果不在电子设备|办公家具|其它设备 三个范围内的值 怎么实现手动输入呢？
.AddSelect("资产类别","资产类别","|电子设备|办公家具|其它设备")
像这种选择输入的组件  如果不在电子设备|办公家具|其它设备 三个范围内的值 怎么实现手动输入呢？
--  作者：有点甜
--  发布时间：2019/5/31 11:42:00
--  

 

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

 

 
--  作者：李孝春
--  发布时间：2019/5/31 12:20:00
--  回复：（有点甜） 加一个【其它】的选项，如果...
有没有类似列子呢？
--  作者：李孝春
--  发布时间：2019/5/31 12:32:00
--  回复：（有点甜） 加一个【其它】的选项，如果...
有没有类似例子可以提供参考学习呢？
解决自定义录入的同时  将资产类别  显示颜色为红色
--  作者：有点甜
--  发布时间：2019/5/31 12:58:00
--  

 

 

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

 

[此贴子已经被作者于2019/5/31 12:58:45编辑过]