Case "swfwwgqr.htm"      \'<商务服务下单>,<商务服务抢单>,<商务服务完工申请>,<商务服务完工确认>四个环节.
       
        \'/**显示【商务服务完工申请】页面
        If e.PostValues.count = 0 Then
            \'//** 以下部分必须放在"e.PostValues.count = 0 "之后,否则e.PostValues.count <> 0时不能正常显示
            \'//** 建立数据链接
            Dim drs As List(of DataRow)   \'集合
            drs = DataTables("商务服务工单").Select("[服务结束日期] Is not null And [服务结束确认日期] Is null","[记录编号]")

            Dim cod As String
            If drs.Count<1 Then
                With wb.AddMsgPage("","msg_add","温馨提示", "当前没有可申请完工结算的工单,请您确认已有抢单,再点击查看,下次祝您好运,【返回首页】")
                    .AddButton("btn3","返回首页","default.htm").Kind=1
                End With
                 e.WriteString(wb.Build)
                Return ""
            End If

            For i As Integer = 0 To drs.Count - 1 \'重算余下行的余额
                cod = cod & "|" &  drs(i)("记录编号")
            Next
           
           
            \'服务节点内容={"采购编号","采购方式","合同标的物","服务内容","标准服务费","接单服务费"}
            wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px;background-color:blue;color:white\' \'>商务服务工单详情</h3>")
            wb.AddForm("","form1","swfwwgqr.htm")
            With wb.AddInputGroup("form1","ig1","工单已完数据:" & dat.Date)
                With .AddSelect("记录编号","工单号",cod)
                    .Attribute = ""  \'调用js函数,获取【完工申请】信息
                End With
               
                .AddInput("采购编号","采购编号","text").Readonly=True
                .AddInput("采购方式","采购方式","text").Readonly=True
                .AddInput("合同标的物","合同标的物","text").Readonly=True
                .AddInput("填报日期","下单时间","datetime-local").Readonly=True
                .AddInput("填报人","下单人","text").Readonly=True
                .AddInput("服务内容","服务内容","text").Readonly=True
                .AddInput("标准服务费","标准服务费","number").Readonly=True
                .AddInput("接单服务费","接单服务费","number").Readonly=True
                .AddInput("审核日期","抢单时间","datetime-local").Readonly=True
                .AddInput("审核人","抢单人","text").Readonly=True
                .AddInput("服务结束日期","服务结束日期","datetime-local").Readonly=True
                .AddInput("合同编号","合同编号","text").Readonly=True
                .AddInput("合同金额","合同金额","number").Readonly=True
                .AddInput("实际结算服务费","实际结算服务费","number").Readonly=True
                .AddInput("供应商名称","供应商名称","text").Readonly=True
           
            End With
            With wb.AddInputGroup("form1","ig2","确认意见:" )
                .AddInput("完工确认意见","完工确认意见","text")
                .AddInput("服务评价","服务评价(分)","number")
                .AddInput("服务评价建议","服务评价建议","text")
            End With
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "同意", "submit")
                \'.Add("btn2","取消").Attribute=""
                .Add("btn2","不同意","","disagree.htm")
            End With
            wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文
            e.WriteString(wb.Build) \'生成网页
            \'Return ""
        Else
            \'/**
           
            Dim dr As DataRow= DataTables("商务服务工单").Find("记录编号=\'" & e.PostValues("记录编号") & "\'")
            If dr IsNot Nothing Then

                dr("服务结束确认日期")=dat
                dr("完工确认意见")=iif(dr.IsNull("完工确认意见"),"",dr("完工确认意见") & "|") & e.PostValues("完工确认意见")
                dr("服务评价")=e.PostValues("服务评价")
                dr("服务评价建议")=e.PostValues("服务评价建议")
                \'\'\'///OpenQQ消息推送
                \' Dim r As Row = dr.  .Current
                Dim p As String = IIF( dr.RowState = DataRowState.Added, "A#", "U#")
                dr.Save()
                \'一定要在保存后合成信息,因为新增行的主键在保存后才生成
                Dim msg As String = p & dr.DataTable.Name & "#" & dr("_Identify")

                For Each bd As QQBuddy In QQClient.Buddies
                    If bd.Online Then
                        QQClient.Send(bd.name, msg)
                    End If
                Next
               
                \'/**
                With wb.AddMsgPage("","msg_add","温馨提示", "完工确认已成功提交,请【返回首页】")
                    .AddButton("btn2","返回首页","default.htm").Kind=1
                End With
            Else
                With wb.AddMsgPage("","msg_add","温馨提示", "完工确认提交未成功,请【返回首页】")
                    .AddButton("btn2","返回首页","default.htm").Kind=1
                End With
               
            End If
            e.WriteString(wb.Build)
            Return "" \'这是必须的
        End If
       
       
    Case "gdwgqr.htm"   \'工单完工确认
        Dim codfil As String ="记录编号=\'" & e.PostValues("记录编号") & "\'"
        Dim dr As DataRow = DataTables("商务服务工单").Find(codfil)
       
        If dr IsNot Nothing Then
            Dim bh As String=iif(dr.IsNull("采购编号"),"***",dr("采购编号"))
            Dim fs As String=iif(dr.IsNull("采购方式"),"***",dr("采购方式"))
            Dim bdw As String=iif(dr.IsNull("合同标的物"),"***",dr("合同标的物"))
            Dim tbrq As Date =iif(dr.IsNull("填报日期"),dat,dr("填报日期"))
            Dim tbr As String =iif(dr.IsNull("填报人"),"***",dr("填报人"))
            Dim fwnr As String=iif(dr.IsNull("服务内容"),"***",dr("服务内容"))
            Dim bzfwf As Double=iif(dr.IsNull("标准服务费"),0,dr("标准服务费"))
            Dim jdfwf As Double=iif(dr.IsNull("接单服务费"),0,dr("接单服务费"))
            Dim shrq As Date = iif(dr.IsNull("审核日期"),dat,dr("审核日期"))
            Dim shr As String=iif(dr.IsNull("审核人"),"***",dr("审核人"))
            Dim fwjsri As Date = iif(dr.IsNull("服务结束日期"),dat,dr("服务结束日期"))
            Dim htbh As String=iif(dr.IsNull("合同编号"),"***",dr("合同编号"))
            Dim htje As Double=Iif(dr.IsNull("合同金额"),0,dr("合同金额"))
            Dim jsfwf As Double=iif(dr.IsNull("实际结算服务费"),0,dr("实际结算服务费"))
            Dim gysmc As String=iif(dr.IsNull("供应商名称"),"***",dr("供应商名称"))

            Dim pps As String = bh & "|" & fs & "|" & bdw & "|" & tbrq & "|" & tbr & "|" & fwnr & "|" & bzfwf & "|" & jdfwf & "|" & shrq & "|" & shr & "|" & _
                fwjsri & "|" & htbh & "|" & htje & "|" & jsfwf & "|" & gysmc    
            e.WriteString(pps)
        End If
    Case "disagree.htm"
         Dim dr As DataRow= DataTables("商务服务工单").Find("记录编号=\'" & e.PostValues("记录编号") & "\'")
         If dr IsNot Nothing Then
                dr("完工确认意见")=iif(dr.IsNull("完工确认意见"),"",dr("完工确认意见") & "|") & "# " & dat.Date & "@" & e.PostValues("完工确认意见")
                \'\'\'///OpenQQ消息推送
                \' Dim r As Row = dr.  .Current
                Dim p As String = IIF( dr.RowState = DataRowState.Added, "A#", "U#")
                dr.Save()
                \'一定要在保存后合成信息,因为新增行的主键在保存后才生成
                Dim msg As String = p & dr.DataTable.Name & "#" & dr("_Identify")

                For Each bd As QQBuddy In QQClient.Buddies
                    If bd.Online Then
                        QQClient.Send(bd.name, msg)
                    End If
                Next
               
                \'/**
                With wb.AddMsgPage("","msg_add1","温馨提示", "完工确认【不同意】已成功提交,请【返回首页】")
                    .AddButton("btn3","返回首页","default.htm").Kind=1
                End With
         End If

网页显示时，日期显示空，没有日期值，为什么？

1、你执行到哪一段代码的时候有问题？

2、在那段代码，把对应的变量的值弹出看看是否正确。

1、在js那里，弹出值看一下，如

alert(vals[3])

2、在js那里，你直接复制为  new Date(); 或者是字符 "1999-01-02" 是否正常？

直接用“1999-01-02“能显示，用new date() 不显示，我怀疑是板回的格式不对，在foxtable中是日期型，但在js是字符型