主题：web查询显示

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

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

Dim e As object = args(0)
Dim wb As New weui
...........

'打卡详情查询
With wb.AddInputGroup("form1","dk","打卡详情")
    .AddInput("打卡日期","打卡日期","date")
    With .AddInputCell("ic1") '通过InputCell增加输入框
        .AddLabel("ls1","课内阅读",0)  '增加标签,0显示在左边
        Dim dr As DataRow = DataTables("语文打卡记录").SQLFind("打卡日期= '" & e.PostValues("打卡日期") & "' and 打卡项目 = '课内阅读'")
        If dr IsNot Nothing Then
            With .AddInput("课内阅读","number",1)  '增加输入框,1表示显示在中间
                .Value = dr("打卡用时")
                .Readonly= True
            End With
        Else
            With .AddInput("课内阅读","number",1)  '增加输入框,1表示显示在中间
                .Value = ""
                .Readonly= True
            End With
        End If
        .AddLabel("ls2","(分钟)",2)     '增加标签,2表示显示在右边
    End With
    With .AddInputCell("ic2") '通过InputCell增加输入框
        .AddLabel("ls1","课外阅读",0)  '增加标签,0显示在左边
        Dim ds As DataRow = DataTables("语文打卡记录").SQLFind("打卡日期= '" & e.PostValues("打卡日期") & "' and 打卡项目 = '课外阅读'")
        If ds IsNot Nothing Then
            With .AddInput("课外阅读","number",1)   '增加输入框,1表示显示在中间
                .Value = ds("打卡用时")
                .Readonly= True
            End With
        Else
            With .AddInput("课外阅读","number",1)   '增加输入框,1表示显示在中间
                .Value = ""
                .Readonly= True
            End With
        End If
        .AddLabel("ls2","(分钟)",2)     '增加标签,2表示显示在右边
    End With
End With
......

e.WriteString(wb.Build)

要使用ajax，给日期控件绑定onchange事件，类似：http://www.foxtable.com/mobilehelp/topics/0103.htm，看看setCodes函数的用法

请老师改一下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];
        }
    }
}

var result= submitAjaxFileds('Yuwen_Clock_getdata1.htm','','打卡日期',false);

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

 

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

'打卡详情查询

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)

此主题相关图片如下：1.png

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

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

加代码调试，看看前后端的值

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

---

以下内容是专门发给有点蓝浏览

---

 

登录：张老师，密码：123456

这个页面：

http://127.0.0.1:32178/Yuwen_Clock_Filter.htm

 

 

此主题相关图片如下：1.png