Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两个不同的内部函数获取不同的值，怎么实现一起使用呢？


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

主题：两个不同的内部函数获取不同的值，怎么实现一起使用呢？
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		两个不同的内部函数获取不同的值，怎么实现一起使用呢？  发帖心情 Post By：2020/5/27 12:52:00 [只看该作者]

两个不同的内部函数获取不同的值，怎么实现一起使用呢？ 

想实现根据单位名称 支部名称  作为条件  
分别从两个函数里面获取会议编号 和姓名

图片点击可在新窗口打开查看此主题相关图片如下：333.jpg
图片点击可在新窗口打开查看

内部函数代码如下：（有没有办法把两个函数合并成一个函数内容呢？要求先选择单位名称 然后选择支部名称  才能获取得到会议编号和姓名，下述代码在获取会议编号的时候  只选择了单位就对应显示了会议编号，麻烦老师指导下  哪里不对！）
内部函数dangyuanmingdan
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim vals As String
Dim cmd As New SQ LCommand
cmd.Connecti onN ame = "智慧党建" '记得设置数据源名称
cmd.Comma ndText = "Sel ect * From {党员信息}"
Dim dt As DataTable = cmd.ExecuteReader

If e.PostValues.Count = 1 Then
    vals  = "|" & dt.sqlGet Co mboListString("支部名称","单位名称='" & e.PostValues("单位名称") & "'")
ElseIf e.PostValues.Count = 2 Then
    Dim Filter As String = "单位名称='" & e.PostValues("单位名称") & "' And 支部名称='" & e.PostValues("支部名称") & "'"
    vals = "|" & dt.sqlGet Com boListString("姓名", Filter)   
End If
e.WriteString(vals)
 


内部函数huiyibianhao
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim vals As String
Dim cmd As New  SQL Command
cmd.Conne ction Name = "智慧党建" '记得设置数据源名称
cmd.Comma ndText = "Sele ct * From {会议列表}"
Dim dt As D ataTable = cmd.ExecuteReader
If e.PostValues.Count = 1 Then
    vals  = "|" & dt.sqlGe tComboListString("支部名称","单位名称='" & e.PostValues("单位名称") & "'")
ElseIf e.PostValues.Count = 2 Then
    Dim Filter As String = "单位名称='" & e.PostValues("单位名称") & "' And 支部名称='" & e.PostValues("支部名称") & "'"
    vals = "|" & dt.sqlG etCo mboListString("会议编号", Filter)
End If
e.WriteString(vals)

以下内容是专门发给有点蓝浏览





[此贴子已经被作者于2020/5/27 12:57:12编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

            With wb.AddInputGroup("form1","ipg1","基础信息")
                '.AddSelect("单位名称","单位名称","瓮安|") '前一个"姓名"是ID,后一个"姓名"是标题
                With .AddSelect("单位名称","单位名称","|" & dt.sqlGetComboListString("单位名称"))
                    .Attribute = "onchange=""setAjaxOptions('支部名称','huiyibianhao.htm','单位名称',false)"""
                End With
                With .AddSelect("支部名称","支部名称","")
                    .Attribute = "onchange=""setAjaxOptions('会议编号','huiyibianhao.htm','单位名称','支部名称',false);setAjaxOptions('姓名','dangyuanmingdan.htm','单位名称','支部名称',false)"""
                    
                End With
                .AddSelect("会议编号","会议编号","|" & dt.sqlGetComboListString("会议编号"))
                .AddSelect("姓名","姓名","" )
                .AddSelect("图片类别","图片类别","|会议记录|学习记录|学习心得|其它材料")
            End With
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

            With wb.AddInputGroup("form1","ipg1","基础信息")
                '前一个"姓名"是ID,后一个"姓名"是标题
                With .AddSelect("单位名称","单位名称","|" & dt.sqlGetComboListString("单位名称"))
                    .Attribute = "on change=""se tAjaxOptions('支部名称','huiyibianhao.htm','单位名称',false)"""
                End With
                With .AddSelect("支部名称","支部名称","")
                    .Attribute = "onch ange=""se tAjaxOptions('会议编号','huiyibianhao.htm','单位名称','支部名称',false);set AjaxOptions('姓名','dangyuanmingdan.htm','单位名称','支部名称',false)"""
                    
                End With
                .AddSelect("会议编号","会议编号","") 
                .AddSelect("姓名","姓名","" )
                .AddSelect("图片类别","图片类别","|会议记录|学习记录|学习心得|其它材料")
            End With

谢谢有点蓝老师    参照你的指导  代码为上后，实现了单位名称  支部名称  不依次选择的话 不会选择会议编号和姓名
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

需要什么效果？

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


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）需要什么效果？  发帖心情 Post By：2020/5/28 9:59:00 [只看该作者]

有点蓝老师 初步实现了对应选择效果  想进一步实现  比如我直接选择会议编号   在没有选择单位名称  支部名称的情况下  弹出友情提示  你尚未选择单位名称和支部名称  同时提交按钮为灰色不可点   当选择后 才能正常点击提交按钮

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


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

提交按钮的js代码submitForm函数内容发上来看看

.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）提交按钮的js代码submitForm函数内容...  发帖心情 Post By：2020/5/28 11:11:00 [只看该作者]

function submitForm(){
    show("tst1",2000);
    var result = submitAjaxForm('form1','afterSubmit');
}

function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

function submitForm(){
    show("tst1",2000);
if (document.getElementById("单位名称").value && document.getElementById("支部名称").value ){
    submitAjaxForm('form1','afterSubmit');
}
else{
show("toptip1",2000);
}
}

代码里添加一个提示
wb.AddTopTips("","toptip1","请输入单位名称和支部名称!")
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）function submitForm(){   ...  发帖心情 Post By：2020/5/28 11:45:00 [只看该作者]

OK  谢谢！

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