下拉隐藏 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "aa.htm"

           wb.AddForm("","form1","handle.htm") '指定接收表单数据的的页面为handle.htm
            With wb.AddInputGroup("form1","ipg1","aa" )
             .AddSelect("对象","对象", "黄色|红色").Attribute = "showandhide(this.value)" '调用js函数。

            With wb.AddRadioGroup("form1","颜色","颜色")
            .Add("淡黄","淡黄")
            .Add("金黄","金黄")

.Add("粉红","粉红")
.Add("朱红","朱红")

End With
End With

wb.AppendHTML("<script src='./lib/brands.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

End Select

请问一下我选择黄色之后怎么把粉红和朱红隐藏，选择红色后只显示粉红和朱红？

下面这段放在foxtable网页要怎么写？

[此贴子已经被作者于2017/9/19 15:43:43编辑过]

                .Add("淡黄","淡黄")
                .Add("金黄","金黄")

                .Add("粉红","粉红")
                .Add("朱红","朱红")

            End With
        End With
        wb.AppendHTML("<style>label[for=""粉红""]{display:none}</style>")
        wb.AppendHTML("<style>label[For=""朱红""]{display:none}</style>")

        e.WriteString(wb.Build)

谢谢老师！如果选择红色对应的单选框从数据库读取该怎么写？

以下是引用lshshlxsh在2017/9/19 10:18:00的发言：

谢谢老师！如果选择红色对应的单选框从数据库读取该怎么写？

尽量一次性把其弄出来，显示/隐藏起来。

后台数据库读取就比较麻烦了，动态生成，插入，如 http://www.foxtable.com/mobilehelp/scr/0110.htm

我一次性写出来但是为什么选择了颜色没有变？

.AddSelect("部件","部件", "a|b").Attribute = bb 部件选择后都能改变

[此贴子已经被作者于2017/9/19 15:43:57编辑过]

我这样测试没问题

    Case "test.htm"
        Dim wb As new weui
        wb.AddForm("","form1","handle.htm") '指定接收表单数据的的页面为handle.htm
        With wb.AddInputGroup("form1","ipg1","aa" )
            .AddSelect("对象","对象", "黄色|红色").Attribute = "onchange=""if(this.value=='红色') {var r1 = document.querySelector('label[for=\'淡黄\']');r1.style.display='none';var r2 = document.querySelector('label[for=\'金黄\']');r2.style.display='none';var r3 = document.querySelector('label[for=\'粉红\']');r3.style.display='flex';var r4 = document.querySelector('label[for=\'朱红\']');r4.style.display='flex';} else {var r1 = document.querySelector('label[for=\'淡黄\']');r1.style.display='flex';var r2 = document.querySelector('label[for=\'金黄\']');r2.style.display='flex';var r3 = document.querySelector('label[for=\'粉红\']');r3.style.display='none';var r4 = document.querySelector('label[for=\'朱红\']');r4.style.display='none';}""" '调用js函数.
        End With
        With wb.AddInputGroup("form1","ipg2","bb" )
            .AddSelect("aa","aa", "a|b").Attribute = "onchange=""if(this.value=='a') {var r1 = document.querySelector('label[for=\'b\']');r1.style.display='none';var r2 = document.querySelector('label[for=\'a\']');r2.style.display='flex'} else {var r1 = document.querySelector('label[for=\'b\']');r1.style.display='flex';var r2 = document.querySelector('label[for=\'a\']');r2.style.display='none'}""" '调用js函数.
        End With

        With wb.AddRadioGroup("form1","颜色","颜色")

            .Add("淡黄","淡黄")
            .Add("金黄","金黄")

            .Add("粉红","粉红")
            .Add("朱红","朱红")

        End With

        With wb.AddRadioGroup("form1","bb","bb")

            .Add("b","b")
            .Add("a","a")


        End With

        wb.AppendHTML("<style>label[for=""粉红""]{display:none}</style>")
        wb.AppendHTML("<style>label[For=""朱红""]{display:none}</style>")

        e.WriteString(wb.Build)

[此贴子已经被作者于2017/9/19 15:28:41编辑过]

已经解决了 js 代码多了 " 谢谢

主题：下拉隐藏