- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 两个不同的内部函数获取不同的值，怎么实现一起使用呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150335)
-- 发布时间：2020/5/27 12:52:00
-- 两个不同的内部函数获取不同的值，怎么实现一起使用呢？
两个不同的内部函数获取不同的值，怎么实现一起使用呢？
想实现根据单位名称 支部名称 作为条件
分别从两个函数里面获取会议编号 和姓名
此主题相关图片如下：333.jpg
此主题相关图片如下：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编辑过]
-- 发布时间：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
-- 发布时间：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
谢谢有点蓝老师 参照你的指导 代码为上后，实现了单位名称 支部名称 不依次选择的话 不会选择会议编号和姓名
-- 发布时间：2020/5/28 9:51:00
--
需要什么效果？
-- 发布时间：2020/5/28 9:59:00
-- 回复：（有点蓝）需要什么效果？
有点蓝老师 初步实现了对应选择效果 想进一步实现 比如我直接选择会议编号 在没有选择单位名称 支部名称的情况下 弹出友情提示 你尚未选择单位名称和支部名称 同时提交按钮为灰色不可点 当选择后 才能正常点击提交按钮
-- 发布时间：2020/5/28 10:07:00
--
提交按钮的js代码submitForm函数内容发上来看看
.Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传
-- 发布时间：2020/5/28 11:11:00
-- 回复：（有点蓝）提交按钮的js代码submitForm函数内容...
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);
}
}
-- 发布时间：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","请输入单位名称和支部名称!")
-- 发布时间：2020/5/28 11:45:00
-- 回复：（有点蓝）function submitForm(){ ...
OK 谢谢！