Foxtable(狐表) → 用户栏目 → 专家坐堂 → setAjaxOptions获取不到值 求解


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

主题：setAjaxOptions获取不到值 求解
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		setAjaxOptions获取不到值 求解  发帖心情 Post By：2020/5/25 11:51:00 [只看该作者]

setAjaxOptions获取不到值 求解

    
    Case  "huiyibianhao.htm"
        Dim vals As String
        Dim cmd As New S Q LC om mand
        cmd.Conn ecti on Name = "智慧党建" '记得设置数据源名称
        cmd.Comm andText = "Sele ct * From {会议列表}"
        Dim dt As DataTable = cmd.Ex ecu teReader
        
        If e.PostValues.Count = 1 Then
            vals  = "|" & dt.sql Get Com boListString("单位名称")
        ElseIf e.PostValues.Count = 2 Then
            vals  = "|" & dt.sql Get C om boListString("所属支部","单位名称='" & e.PostValues("单位名称") & "'")
        ElseIf e.PostValues.Count = 3 Then
            Dim Filter As String = "单位名称='" & e.PostValues("单位名称") & "' And 所属支部='" & e.PostValues("所属支部") & "'"
            vals = "|" & dt.sql Get Co m boListString("会议编号", Filter)
        End If
        e.WriteString(vals)
End Select



Case "upload.htm"
    If e.PostValues.Count = 0 Then
        wb.AddPageTitle("","ph1","会议记录","瓮安县检察院【三会一课系统】")
        wb.AddForm("","form1","upload.htm")
        With wb.AddInputGroup("form1","ipg1","增加图片")
            '.AddSelect("单位名称","单位名称","瓮安|") '前一个"姓名"是ID,后一个"姓名"是标题
            With .AddSelect("单位名称","单位名称","")
                .Attrib ute = "oncha nge=""set A jax Options('单位名称','huiyibianhao.htm',false)"""
            End With
            With .AddSelect("所属支部","所属支部","")
                .Attr ib ute = "onch ange=""set A jaxO ptions('所属支部','huiyibianhao.htm','单位名称',false)"""
            End With
            
            With .AddSelect("会议编号","会议编号","")
                .Att rib ute = "onc ha nge=""set Aj ax Options('会议编号','huiyibianhao.htm','单位名称','所属支部',false)"""
            End With
            



红色部分不能用se tA jax Opt ions  从后台获取到单位名称  并根据单位名称获取到所属支部  然后获取会议编号   麻烦各位老师指导一下  谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Case  "huiyibianhao.htm"
        Dim vals As String
        Dim cmd As New S Q LC om mand
        cmd.Conn ecti on Name = "智慧党建" '记得设置数据源名称
        cmd.Comm andText = "Sele ct * From {会议列表} where 1=2"
        Dim dt As DataTable = cmd.Ex ecu teReader
        
        If e.PostValues.Count = 1 Then
            vals  = "|" & dt.sql Get C om boListString("所属支部","单位名称='" & e.PostValues("单位名称") & "'")
        ElseIf e.PostValues.Count = 2 Then
            Dim Filter As String = "单位名称='" & e.PostValues("单位名称") & "' And 所属支部='" & e.PostValues("所属支部") & "'"
            vals = "|" & dt.sql Get Co m boListString("会议编号", Filter)
        End If
        e.WriteString(vals)
End Select

-------------
Case "upload.htm"
    If e.PostValues.Count = 0 Then

Dim cmd As New S Q LC om mand
        cmd.Conn ecti on Name = "智慧党建" '记得设置数据源名称
        cmd.Comm andText = "Sele ct * From {会议列表} where 1=2"
        Dim dt As DataTable = cmd.Ex ecu teReader

        wb.AddPageTitle("","ph1","会议记录","瓮安县检察院【三会一课系统】")
        wb.AddForm("","form1","upload.htm")
        With wb.AddInputGroup("form1","ipg1","增加图片")
            '.AddSelect("单位名称","单位名称","瓮安|") '前一个"姓名"是ID,后一个"姓名"是标题
            With .AddSelect("单位名称","单位名称","|" & dt.sql Get Com boListString("单位名称"))
                .Attr ib ute = "onch ange=""set A jaxO ptions('所属支部','huiyibianhao.htm','单位名称',false)"""
            End With
            With .AddSelect("所属支部","所属支部","")
                .Att rib ute = "onc ha nge=""set Aj ax Options('会议编号','huiyibianhao.htm','单位名称','所属支部',false)"""
            End With
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）Case  "huiyibianhao.htm" ...  发帖心情 Post By：2020/5/25 13:20:00 [只看该作者]

               With .AddSelect("单位名称","单位名称","|" & dt.sqlGetComboListString("单位名称"))
                    .Attribute = "onch ange=""setA ja xOptions('所属支部','huiyibianhao.htm','单位名称',false)"""
                End With
                With .AddSelect("所属支部","所属支部","")
                    .Attribute = "onch ange=""set Aja x Options('会议编号','huiyibianhao.htm','单位名称','所属支部',false)"""
                End With
                With .AddSelect("会议编号","会议编号","|" & dt.sqlGetComboListString("会议编号"))
                End With

谢谢老师   经过参照学习，上述代码实现了功能需求，如果还有更简单的写法，还请老师多多指导下，灰常感谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/25 13:33:00 [只看该作者]

没有更简单的写法了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询