Foxtable(狐表)用户栏目专家坐堂 → 移动端开发时如何实现多选择框组件的功能呢


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

主题:移动端开发时如何实现多选择框组件的功能呢

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
移动端开发时如何实现多选择框组件的功能呢  发帖心情 Post By:2019/3/17 [只看该作者]

移动端开发时如何实现多选择框组件的功能呢? 

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

移动端开发时只有一个复选列表项,

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


有没有办法实现第一图的效果,如果能够实现,那么怎么实现呢?怎么从数据表【干警信息】中获取对应的姓名值或属性值呢?

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

代码如下:
Dim wb As New weui
Select Case e.Path
    Case "AddNew.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","addnew.htm")
            With wb.AddInputGroup("form1","ipg1","信息编辑")
                .AddInput("信息时间","信息时间","date") '前一个"姓名"是ID,后一个"姓名"是标题
                .AddInput("信息类别","信息类别","text")
                .AddInput("发送对象","发送对象","text")
                .AddInput("发送人员","发送人员","text")
                .AddSelect("发送平台","发送平台","移动短信|阿里云短信")
                .AddInput("拟发送时间","拟发送时间","date")
                '.AddInput("信息内容","信息内容","text")
                '.AddSwitch("自动发送","自动发送").Value = "True"
            End With
            With wb.AddInputGroup("form1","ipg2","信息内容")
                .AddTextArea("信息内容",10).Placeholder = "请输入500字以内的备注"
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            e.WriteString(wb.Build)
            
        Else
            Dim nms() As String = {"信息时间","信息类别","发送平台","信息内容"} '不能为空的列名数组
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
                    With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
                        .icon = "Warn" '改变图标
                        .AddButton("btn1","返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return '必须返回
                End If
            Next
            nms = New String() {"信息时间","信息类别","发送对象","发送人员","发送平台","拟发送时间","信息内容"}  '重新定义了nms数组,增加了两列.
            Dim dr As DataRow = DataTables("信息列表").AddNew()
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) Then
                    dr(nm) = e.PostValues(nm)
                End If
            Next
            Functions.Execute("yidongduanzengjiagaozhi")
            With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
                .AddButton("btn1","继续增加","addnew.htm")
            End With
            e.WriteString(wb.Build)
            
        End If
        
End Select
[此贴子已经被作者于2019/3/17 15:12:08编辑过]

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


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

内置的框架没有这种用法。需要自己使用原生的html做。或者使用一些第三方的框架做

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/18 10:56:00 [只看该作者]


 回到顶部