老师，有这样一个界面，选择不同的日期，显示不同打卡项目的打卡用时，该怎么改？

此主题相关图片如下：qq截图20220621103746.jpg

请老师改一下JS

function setCodes(){
    var result= submitAjaxFileds(\'Yuwen_Clock_getdata1.htm\',\'\',\'province\',\'county\',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            document.getElementById("课内阅读").value=vals[0];
            document.getElementById("课外阅读").value=vals[1];
        }
    }
}

老师，看看哪儿不对，选择了日期，结果没出来

查询页面该位置代码如下：

\'打卡详情查询

With wb.AddInputGroup("form1","dk","打卡详情")
    .AddInput("打卡日期","打卡日期","date").Attribute = "onclick=\'sendJsonString1()\'"
    With .AddInputCell("ic1") \'通过InputCell增加输入框
        .AddLabel("ls1","课内阅读",0)  \'增加标签,0显示在左边
            With .AddInput("课内阅读","number",1)  \'增加输入框,1表示显示在中间
                .Readonly= True
            End With
        .AddLabel("ls2","(分钟)",2)     \'增加标签,2表示显示在右边
    End With
    With .AddInputCell("ic2") \'通过InputCell增加输入框
        .AddLabel("ls1","课外阅读",0)  \'增加标签,0显示在左边
            With .AddInput("课外阅读","number",1)   \'增加输入框,1表示显示在中间
                .Readonly= True
            End With
        .AddLabel("ls2","(分钟)",2)     \'增加标签,2表示显示在右边
    End With
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件

Yuwen_Clock_getdata1页面代码如下：

Dim e As object = args(0)
Dim wb As New weui
Dim drs As List (of DataRow) = DataTables("语文打卡记录").sqlselect("打卡日期=\'" & e.Values("打卡日期") & "\' and 姓名 = \'" & _UserXingMing & "\'")
msgbox(drs.Count)
For Each dr As DataRow In drs
If dr IsNot Nothing Then
    e.WriteString(dr("课内阅读") & "|" & dr("课外阅读"))
End If
Next
e.WriteString(wb.Build)

    绑定了，开始发帖，事件没显示，修改的时候，把onchange事件代码复制错了

    .AddInput("打卡日期","打卡日期","date").Attribute = "onchange=\'setCodes()\'" \'调用js函数

这个还真调试不来，请老师看看

登录：张老师，密码：123456

这个页面：

http://127.0.0.1:32178/Yuwen_Clock_Filter.htm