以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  WEUI界面想通过逻辑开关控制组件不可显示要怎么写代码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186956)

--  作者:YUNSEL
--  发布时间:2023/6/10 22:09:00
--  WEUI界面想通过逻辑开关控制组件不可显示要怎么写代码?
想在下面代码中,做到一个功能,当操作时拨动逻辑开关为ON时,显示下面红色中间的控件,OFF时则不显示,刚学习网页,象这种没有提交按钮时,要怎么传值?


Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then \'生成增加订单网页   
    With wb.AddInputGroup("form1", "ipg1", "")
        .AddInput("a0", "姓名∶", "text")
        .AddInput("b0", "部门∶", "text")
    End With
    
    With wb.AddInputGroup("form1", "ipg0", "")
        .AddSwitch("hy", "查看更多信息", False)
    End With
    
    If e.GetValues("hy") = "on" Then 
        With wb.AddInputGroup("form1", "ipg2", "")
            .AddInput("a1", "电话∶", "number")
            .AddInput("b1", "手机∶", "date")
            .AddInput("c1", "邮件∶", "text")
            .AddInput("d1", "地址∶", "text")
        End With
    End If
    
    With wb.AddButtonGroup("form1", "btg1", False)
        .Add("btn_zh", "增加", "submit")
        .Add("btn_qx", "取消", "button").Attribute = """ 
    End With
    
    wb.AppendHTML("<script src=\'./lib/abc.js\'></script>") \'引入脚本文件
    e.WriteString(wb.Build)
Else \'保存新增的订单
    Dim nms() As String = {"a0", "b0", "a1", "b1", "c1", "d1"}
    Dim dr As Row = Tables("表A").AddNew()
    For Each nm As String In nms
        dr(nm) = e.PostValues(nm)
    Next
    dr.Save()
    \'显示完成提示,2妙手自动返回原来的页面
    wb.AppendHtml("<meta http-equiv=\'refresh\' c>", True)
    wb.AppendHTML("<script src=\'./lib/abc.js\'></script>") \'引入脚本文件
    e.WriteString(wb.Build) \'生成网页
End If
[此贴子已经被作者于2023/6/10 22:09:59编辑过]

--  作者:有点蓝
--  发布时间:2023/6/11 20:20:00
--  
要使用js处理,参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160435
--  作者:YUNSEL
--  发布时间:2023/6/11 22:47:00
--  
1、按照链接例子试了下,没有搞定,现在进入网页时是下图示,然后把逻辑开关设为off时,会隐藏下面的信息,但是再设为on或off时,下面的都不显示了,就是没反应了。

图片点击可在新窗口打开查看此主题相关图片如下:112.png
图片点击可在新窗口打开查看


2、下面是网页函数截图

图片点击可在新窗口打开查看此主题相关图片如下:113.png
图片点击可在新窗口打开查看

3、然后js代码参照例子着是这样写的,帮忙看下,是什么问题,谢谢!

function view(){
   var xx=document.getElementById("more").value;
if(xx=="on")
 {
document.getElementById("ipg2").style.display="inline";
document.getElementById("ipg2").style.display="none";
}
else
 {
document.getElementById("ipg2").style.display="inline";
document.getElementById("ipg2").style.display="block";
 }
}



--  作者:有点蓝
--  发布时间:2023/6/11 23:08:00
--  
调试

function view(){
   var xx=document.getElementById("more").value;
alert(xx);
if(xx=="on")
 {
document.getElementById("ipg2").style.display="block";
}
else
 {
document.getElementById("ipg2").style.display="none";
 }
}

--  作者:YUNSEL
--  发布时间:2023/6/12 7:58:00
--  
通过调试,发现逻辑开关不管在左还是在右,都是on值?所以操作一次后,后面都是无效的。
--  作者:有点蓝
--  发布时间:2023/6/12 8:37:00
--  
function view(){
   var xx=document.getElementById("more").checked;
alert(xx);
if(xx)
{
document.getElementById("ipg2").style.display="block";

--  作者:YUNSEL
--  发布时间:2023/6/12 9:26:00
--  
还是不行,我想要的效果就是一打开网页,ipg2控件要求默认不显示,然后就是打开逻辑开关时显示 ipg2,关闭逻辑开关时隐藏 ipg2。刚刚学手机网页,整了一周末没搞定,还是上个实例求老师帮忙,谢谢。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:abc.zip


[此贴子已经被作者于2023/6/12 9:26:16编辑过]

--  作者:有点蓝
--  发布时间:2023/6/12 9:55:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:abc.zip


--  作者:YUNSEL
--  发布时间:2023/6/12 10:17:00
--  
谢谢,搞定了