以文本方式查看主题 - 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 -- 两个不同的内部函数获取不同的值,怎么实现一起使用呢? 两个不同的内部函数获取不同的值,怎么实现一起使用呢? 想实现根据单位名称 支部名称 作为条件 分别从两个函数里面获取会议编号 和姓名
内部函数代码如下:(有没有办法把两个函数合并成一个函数内容呢?要求先选择单位名称 然后选择支部名称 才能获取得到会议编号和姓名,下述代码在获取会议编号的时候 只选择了单位就对应显示了会议编号,麻烦老师指导下 哪里不对!) 内部函数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 谢谢! |