主题：web保存

犯了2个错误，昨天纠结半天，睡一觉一下想明白了

错误1：

With wb.AddPreview("form1","pv1","","")
        .AddButton("保  存","", 1,"submit")
    End With
    wb.InsertHTML("<style>.weui-form-preview {margin-top:5px;}</style>")                      '设置AddPreview1与上边间距

错误2：

    If e.PostValues.ContainsKey("课内阅读") Then
        nms = New String() {"班级","姓名","打卡日期"}  '重新定义了nms数组,增加了两列.
        Dim dr As DataRow = DataTables("语文打卡记录").AddNew()
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm) Then
                dr(nm) = e.PostValues(nm)
            End If
        Next
        dr("打卡项目") = "课内阅读"
        dr("打卡用时") = e.PostValues("课内阅读")  ‘Id是课内阅读、课外阅读，不是打卡用时
        dr("登记状态") = True
        dr("登记人") = _UserXingMing
        dr("登记日期") = Date.Today