Foxtable(狐表)用户栏目专家坐堂 → 请问移动端的控件如何隐藏?


  共有2196人关注过本帖树形打印复制链接

主题:请问移动端的控件如何隐藏?

帅哥哟,离线,有人找我吗?
chen37280600
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:7953 威望:0 精华:4 注册:2017/12/31 14:53:00
请问移动端的控件如何隐藏?  发帖心情 Post By:2018/11/12 20:46:00 [只看该作者]

Dim wb As New weui
Select
Case e.Path
    Case "test.htm"
        If e.PostValues.count = 0 Then
            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1",
"
订单编辑")
                .AddInput("客户","客户","text")
                .AddInput(
"
产品","产品","text")
                .AddInput(
"
数量","数量","number")
                .AddInput(
"
单价","单价","number").Step= "0.01"
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1",
"
确定", "submit")
            End With
        Else
            wb.InsertHTML(
"
接收到的数据有:<br/>")
            For Each key As String In e.PostValues.Keys
                wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
           
Next
        End
If

End
Select
e
.WriteString(wb.Build) '生成网页

 

例如这里的单价控件,我希望通过判断用户角色,再是否显示。但是如果我加一个Attribute="sttle  ='dispaly:none'",效果只是把单价的数字隐藏了,单价这2个字还在,并不是整个单价的Input控件隐藏了。我的单价待会还会参与js运算,所以我不能不添加,我只能隐藏,请问如何做?

[此贴子已经被作者于2018/11/12 20:48:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/12 20:57:00 [只看该作者]

例如

With wb.AddInputGroup("form1","ipg1","订单编辑")
    .AddInput("客户","客户","text")
    .AddInput("产品","产品","text")
    .AddInput("数量","数量","number")
    If User.IsRole("某角色")
        .AddInput("单价","单价","number").Step= "0.01"
    End If
End With

 回到顶部
帅哥哟,离线,有人找我吗?
chen37280600
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:7953 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2018/11/12 21:04:00 [只看该作者]

我说了我不能不添加这个控件,因为待会js运算要用到。我必须添加,但是我想添加过程中控制隐藏

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/12 21:18:00 [只看该作者]

            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1","订单编辑")
                .AddInput("客户","客户","text")
                .AddInput("产品","产品","text")
                .AddInput("数量","数量","number")
            End With
            wb.InsertHTML("form1","<div id='dj00001' style ='display:none'>")
            With wb.AddInputGroup("form1","ipg2","")
                .Attribute = "style='margin-top:0px'"
                .AddInput("单价","单价","number")
            End With
            wb.InsertHTML("form1","</div>")
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With

 回到顶部