Foxtable(狐表)用户栏目专家坐堂 → 移动开发中多个选择项 怎么不能实现并存呢?


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

主题:移动开发中多个选择项 怎么不能实现并存呢?

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
移动开发中多个选择项 怎么不能实现并存呢?  发帖心情 Post By:2019/3/17 22:44:00 [只看该作者]

发送人员没有显示出来,代码见下面红色部分  麻烦老师们指导下 谢谢!

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

Case "AddNew.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","addnew.htm")
            With wb.AddInputGroup("form1","ipg1","信息编辑")
                .AddInput("信息时间","信息时间","Date") '前一个"姓名"是ID,后一个"姓名"是标题
                ' .AddInput("信息类别","信息类别","text")
                Dim filter1 As String = "表名 = '信息列表' and 列名 = '信息类别' and 停用 = false"
                Dim fdr1 As DataRow = DataTables("列项设置").Find(filter1)
                If fdr1 IsNot Nothing Then
                    Dim abc1 As String=fdr1("下拉选项").replace(",", "|")
                    .AddSelect("信息类别","信息类别",abc1)
                End If
                Dim filter As String = "表名 = '干警信息' and 列名 = '备注' and 停用 = false"
                Dim fdr As DataRow = DataTables("列项设置").Find(filter)
                If fdr IsNot Nothing Then
                    Dim abc As String=fdr("下拉选项").replace(",", "|")
                    .AddSelect("发送对象","发送对象",abc)
                End If
                Dim filter2 As String = "表名 = '干警信息' and 列名 = '姓名' and 停用 = false"
                Dim fdr2 As DataRow = DataTables("列项设置").Find(filter2)
                If fdr2 IsNot Nothing Then
                    Dim abc2 As String=fdr2("下拉选项").replace(",", "|")
                    .AddSelect("发送人员","发送人员",abc2)
                End If
                .AddSelect("发送平台","发送平台","移动短信|阿里云短信")
                .AddInput("拟发送时间","拟发送时间","Date")
            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   
[此贴子已经被作者于2019/3/17 22:44:21编辑过]

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


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

改一下

 

                Dim filter2 As String = "表名 = '干警信息' and 列名 = '姓名' and (停用 = false or 停用 is null)"
                Dim fdr2 As DataRow = DataTables("列项设置").Find(filter2)
msgbox(1)
                If fdr2 IsNot Nothing Then
msgbox("进入了")
                    Dim abc2 As String=fdr2("下拉选项").replace(",", "|")
                    .AddSelect("发送人员","发送人员",abc2)
msgbox(abc2)
                End If

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)改一下     &nbs...  发帖心情 Post By:2019/3/18 22:34:00 [只看该作者]

msgbox(1)
只弹出了这个1,其它的没有弹出来 ,还得麻烦老师指导一下啦

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim filter2 As String = "表名 = '干警信息' and 列名 = '姓名' and (停用 = false or 停用 is null)"
Dim fdr2 As DataRow = DataTables("列项设置").Find(filter2)

说明没有符合条件的数据

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim filter2 As String = "表名 = '干...  发帖心情 Post By:2019/3/18 23:05:00 [只看该作者]

Dim filter2 As String = "姓名 <>''"
                Dim fdr2 As DataRow = DataTables("干警信息").Find(filter2)
                msgbox(1)
                If fdr2 IsNot Nothing Then
                    msgbox("进入了")
                    Dim abc2 As String=fdr2("姓名")
                    .AddSelect("发送人员","发送人员",abc2)
                    msgbox(abc2)
                End If

上述代码实现了一个姓名的弹出,但是不能对应弹出多个符合条件的姓名值

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

多个什么条件?到底对自己的数据了解吗!

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)多个什么条件?到底对自己的数据了解...  发帖心情 Post By:2019/3/18 23:13:00 [只看该作者]

Dim filter2 As String = "姓名 <>''"
                Dim fdr2 As DataRow = DataTables("干警信息").Find(filter2)
                msgbox(1)
                If fdr2 IsNot Nothing Then
                    msgbox("进入了")
                    Dim abc2 As String=fdr2("姓名")
                    .AddSelect("发送人员","发送人员",abc2)
                    msgbox(abc2)
                End If

姓名不等于空值的,数据有97个,这个.AddSelect只显示了第一个

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


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

你要用 GetComboListString

 

http://www.foxtable.com/webhelp/scr/1435.htm

 


 回到顶部