Foxtable(狐表)用户栏目专家坐堂 → [求助]表单日期区间计算


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

主题:[求助]表单日期区间计算

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]表单日期区间计算  发帖心情 Post By:2021/8/26 17:46:00 [只看该作者]

老师,
有个疑问,表单上的日期能否,在录入日期后自动计算时间,怎么写?

With wb.AddInputGroup("form1","ipg2","上午出勤")
            .AddInput("rqswks","上午开始时间","time")
            .AddInput("rqswks","上午结束时间","time")
            With .AddInput("swsj","下午时长","number")
                .Value=rqswks-rqswks
                .Readonly=True
            End With
        End With
        With wb.AddInputGroup("form1","ipg3","下午出勤")
            .AddInput("rqxwks","下午开始时间","time")
            .AddInput("rqxwjs","下午结束时间","time")
            With .AddInput("xwsc","下午时长","number")
                .Value=rqxwks-rqxwjs
                .Readonly=True
            End With


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:75335 积分:382163 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/26 20:04:00 [只看该作者]

要绑定js事件,类似:http://www.foxtable.com/mobilehelp/topics/0061.htm

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2021/8/26 20:07:00 [只看该作者]

老师,
能教我一下吗,这个刚学习了一部分。  下载了 sublime_text.exe ,怎么做

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2021/8/26 20:15:00 [只看该作者]

function markCalc(kssj,jssj){
    swsj.value=kssj.value -jssj.value;
    if(swsj.value >= 0){
        if(!swsj.classList.contains('mark')){
                    swsj.classList.add('mark');
        }
    }
    else{
        if(swsj.classList.contains('mark')){
            swsj.classList.remove('mark');
        }
    }
}
[此贴子已经被作者于2021/8/26 20:17:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2021/8/26 20:25:00 [只看该作者]

Case "sjlr.htm"
        Dim wb As New WeUI
        wb.AddForm("","form1","sjlr.htm")
        wb.AppendHTML("<link rel='stylesheet' href='./lib/textjs.css'/>",True)  '引入样式文件,参数True表示添加到head区
        With wb.AddInputGroup("form1","ipg1","新增出勤数据")
            .AddInput("rq","日期","date")
            .AddSelect("cp","车牌号","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","雇员","text")
        End With
        With wb.AddInputGroup("form1","ipg2","上午出勤")
            .AddInput("rqswks","上午开始时间","time")
            .AddInput("rqswjs","上午结束时间","time")
              .AddInput("swsj"," 上午时长","number").Attribute="on change='markCalc(rqswks,rqswjs)'"
        End With

[此贴子已经被作者于2021/8/26 20:26:20编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2021/8/26 20:25:00 [只看该作者]

运行没有反应,劳烦您给改改

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:75335 积分:382163 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/26 20:49:00 [只看该作者]

            .AddInput("rqswks","上午开始时间","time").Attribute="on change='markCalc()'"
            .AddInput("rqswjs","上午结束时间","time").Attribute="on change='markCalc()'"
--------------------
function markCalc(){
    var kssj = document.getElementById("rqswks").value;
    var jssj = document.getElementById("rqswjs").value;
var tt=(jssj - kssj )/ 1000;
alert("秒数" + tt);
document.getElementById("swsj").value = tt
}

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2021/8/26 21:06:00 [只看该作者]

没有弹窗,没有反应

 Case "sjlr.htm"
        Dim wb As New WeUI
        wb.AddForm("","form1","sjlr.htm")
        wb.AppendHTML("<link rel='stylesheet' href='./lib/textjs.css'/>",True)  '引入样式文件,参数True表示添加到head区
        With wb.AddInputGroup("form1","ipg1","新增出勤数据")
            .AddInput("rq","日期","date")
            .AddSelect("cp","车牌号","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","雇员","text")
        End With
        With wb.AddInputGroup("form1","ipg2","上午出勤")
            .AddInput("rqswks","上午开始时间","time").Attribute="on change='markCalc1()'"
            .AddInput("rqswjs","上午结束时间","time").Attribute="on change='markCalc1()'"
            .AddInput("swsj"," 上午时长","number")
        End With
        With wb.AddInputGroup("form1","ipg3","下午出勤")
            .AddInput("rqxwks","下午开始时间","time").Attribute="on change='markCalc2()'"
            .AddInput("rqxwjs","下午结束时间","time").Attribute="on change='markCalc2()'"
            .AddInput("xwsj","下午时长","number")
        End With
        
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","确定")
        End With
        e.WriteString(wb.Build) '生成网页

==================================
css文件

function markCalc1(){
    var swkssj = document.getElementById("rqswks").value;
    var swjssj = document.getElementById("rqswjs").value;
var tt1=(swjssj - swkssj )/ 1000;
alert("秒数" + tt1);
document.getElementById("swsj").value = tt1
}
function markCalc2(){
    var xwkssj = document.getElementById("rqxwks").value;
    var xwjssj = document.getElementById("rqxwjs").value;
var tt2=(xwjssj - xwkssj )/ 1000;
alert("秒数" + tt1);
document.getElementById("xwsj").value = tt2
}
[此贴子已经被作者于2021/8/26 21:08:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2902 积分:19931 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2021/8/26 21:07:00 [只看该作者]

分上下午两部分

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

js文件,不是css文件

 回到顶部
总数 25 1 2 3 下一页