Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表单相斥


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

主题：[求助]表单相斥
帅哥，在线噢！
foxtablefanse
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5217 威望：0 精华：0 注册：2018/11/6 10:54:00 		[求助]表单相斥  发帖心情 Post By：2020/8/14 23:08:00 [只看该作者]

With wb.AddRadioGroup("form1","formonth","按月份查询")
    .Add("thismth","本月")
    .Add("shmth","上月")
End With
With wb.AddInputGroup("form1","fordate","按时段查询")
    .AddInput("startdate","从","date")
    .AddInput("enddate","到","date")
End With

选了按月份就清空按时间，反之，怎么办？？
[此贴子已经被作者于2020/8/14 23:15:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

比如

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer").Attribute = "onchange=""clear2();"""
            .Add("bw2","Google Chorme") '默认勾选
        End With
        With wb.AddInputGroup("form1","ipg1","日期输入")
            .AddInput("rq","日期","date").Attribute = "onchange=""clear1();"""
            .AddInput("sh","时间","time")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.AppendHTML("<script src='./test.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
End Select

test.js文件
function clear1(){
    document.getElementById("bw1").checked=false;
}
function clear2(){
    document.getElementById('rq').value='';
}
 回到顶部
帅哥，在线噢！
foxtablefanse
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5217 威望：0 精华：0 注册：2018/11/6 10:54:00 		  发帖心情 Post By：2020/8/20 11:35:00 [只看该作者]

网页部分代码：
......

'按姓名查询时用,判断是否是管理员============================
Dim zw() As String = {"010101","010102","010103","010104","010108"} '管理员职位编号
Dim lzw As New List(of String)
lzw.AddRange(zw) '将数组中的元素全部加入到集合中
'===========================================================

'按姓名查询时的下拉列表项===================================
cmd.C   ommandText = "S elect 姓名,[当前_岗位] from [RL_员工档案] where 当前_岗位 in ('010105','010106','010107') and 当前状态 = '1'"
Dim mddt As DataTable = cmd.Exe  cuteReader
Dim md As List(of String) = mddt.GetValues("姓名","","[当前_岗位] Desc")
'===========================================================

wb.InsertHTML("<p style='font-size:12px;color:red'>★注意:①当月数据无需设置时间段或月份.<br>&nbsp;&emsp;&emsp;&emsp;②如按时间段选择,则不用填写下面的月份,反之如按月筛选,则不用填写时间段.</p>")
wb.InsertHTML("<hr/>")
wb.AddForm("","form1","ludanlist.htm")

'按职位编号加载表单项
If lzw.Contains(e.Cookies("userzw")) Then
    With wb.AddInputGroup("form1","fornm","按名查询,对管理人员开放!")
        .AddSelect("username","姓名","|向**|" & String.Join("|",md.ToArray))
    End With
Else
    With wb.AddRadioGroup("form1","selettype","筛选条件")
        .Add("onlyme","仅我的",True)
        .Add("aboutme","与我相关的")
    End With
End If
With wb.AddRadioGroup("form1","formonth","按月份查询")
    .Add("thismth","本月").Attribute = "onchange=""cdat();"""
    .Add("prevmth","上月").Attribute = "onchange=""cdat();"""
End With
With wb.AddInputGroup("form1","fordate","按时段查询")
    'AddSelect("username","姓名","|向**|" & String.Join("|",md.ToArray))
    .AddInput("startdate","从","date").Attribute = "onchange=""cmth();"""
    .AddInput("enddate","到","date").Attribute = "onchange=""cmth();"""
End With

With wb.AddButtonGroup("form1","btg1", False)
    .Add("btn1", "筛选", "submit")
    .Add("btn2","退出","index.htm")
End With
wb.AppendHTML("<script src='./lib/ludantable.js'></script>") '引入脚本文件
e.WriteString(wb.Build)



ludantable.js：

function edit(){
    location="ludanedit.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}
function del(){
    location="ludandelete.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}
function addNew(){
    location="addludan.htm?page=" + table1.pagenumber;
}
function dynaActiveSheet(){
   if(table1.rows[table1.rowSel].cells[0].innerHTML=="技术部" && table1.rows[table1.rowSel].cells[0].innerHTML=="技术部"){
     show("menu1");
   }
   else{
       hide("menu1");
   }
function cmth(){
    document.getElementById("thismth").checked=false;
    document.getElementById("prevmth").checked=false;
}
function cdat(){
    document.getElementById("startdate").value=null;
    document.getElementById("enddate").value=null;
}
}

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


效果没有出来，麻烦蓝老师看看问题出在哪里！
[此贴子已经被作者于2020/8/20 12:44:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不要把函数放到其他函数里面

function dynaActiveSheet(){
   if(table1.rows[table1.rowSel].cells[0].innerHTML=="技术部" && table1.rows[table1.rowSel].cells[0].innerHTML=="技术部"){
     show("menu1");
   }
   else{
       hide("menu1");
   }
}
function cmth(){
    document.getElementById("thismth").checked=false;
    document.getElementById("prevmth").checked=false;
}
function cdat(){
    document.getElementById("startdate").value=null;
    document.getElementById("enddate").value=null;
}
//}
 回到顶部
帅哥，在线噢！
foxtablefanse
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5217 威望：0 精华：0 注册：2018/11/6 10:54:00 		  发帖心情 Post By：2020/8/20 12:42:00 [只看该作者]

谢谢蓝老师

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