主题：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)

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

 

 

这个ajaxform.js文件里面啊，我这没报这个错呢

function setCodes(){
    var result= submitAjaxFileds('Yuwen_Clock_Filter_getdata.htm','','打卡日期',false);
    if(result){
        var vals=result.split("|");
       if(vals.length==2){
            document.getElementById("课内阅读").value=vals[0];
            document.getElementById("课外阅读").value=vals[1];
        }
    }
}

第一个问题造成的，无语，开始设计的时候把所有的设计好了，想的是应该不会增加了，昨天想起增加一个查询的，服务端忘记改了

现在新问题，内部函数Yuwen_Clock_Filter_getdata中，如果两项打卡有只打了一项，怎么来区分是哪一项的打卡

Dim e As object = args(0)
Dim wb As New weui
Dim drs As List (of DataRow) = DataTables("语文打卡记录").sqlselect("打卡日期='" & e.PostValues("打卡日期") & "' and 姓名 = '" & _UserXingMing & "'")
For Each dr As DataRow In drs
    If dr IsNot Nothing Then
        e.WriteString(dr("打卡用时") & "|" & dr("打卡用时"))
    End If
Next

 

现在这样写这样的效果不对，课外应该为空才对

 

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

遍历好像不行，目前用这种实现了，请老师看看有没简便方法：

Dim e As object = args(0)
Dim dr As DataRow = DataTables("语文打卡记录").SQLFind("打卡日期='" & e.PostValues("打卡日期") & "' and 打卡项目 = '课内阅读' and 姓名 = '" & _UserXingMing & "'")
Dim ds As DataRow = DataTables("语文打卡记录").SQLFind("打卡日期='" & e.PostValues("打卡日期") & "' and 打卡项目 = '课外阅读' and 姓名 = '" & _UserXingMing & "'")
If dr IsNot Nothing And ds IsNot Nothing Then
    Dim Multi As String = dr("打卡用时") & "|" & ds("打卡用时")
    e.WriteString(Multi)
ElseIf dr IsNot Nothing = False And ds IsNot Nothing Then
    Dim Multi As String = "" & "|" & ds("打卡用时")
    e.WriteString(Multi)
ElseIf dr IsNot Nothing  And ds IsNot Nothing =False Then
    Dim Multi As String = dr("打卡用时") & "|" & ""
    e.WriteString(Multi)
ElseIf dr IsNot Nothing = False And ds IsNot Nothing =False Then
    Dim Multi As String = "" & "|" & ""
    e.WriteString(Multi)
End If

要区分打卡项目是：课内阅读 还是 课外阅读，这样区分不了