老师，这样不报错了，但是addnew数据没有成功。
.........
Else
If e.PostValues.ContainsKey("考勤日期") = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","提示", "考勤日期不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return Nothing '必须返回
End If
Dim d As Date = e.PostValues("考勤日期")
If d > Date.Today Then
With wb.AddMsgPage("","msgpage","提示", "未到考勤日期,请勿提前操作!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return Nothing '必须返回
End If
MessageBox.Show(1)
Dim lst As New List(Of String)
For Each key As String In e.postvalues.Keys
If key Like "考勤人员_*" Then
lst.add(e.postvalues(key))
End If
Next
MessageBox.Show(2)
For Each ss As String In DataTables("实名制管理").SQLGetvalues("姓名", "项目名称 = '" & _UserXmmc & "' And 在岗状态 = '在岗'")
Dim dr As DataRow = DataTables("实名制考勤").SQLFind("项目名称 = '" & _UserXmmc & "' And 年 = '" & d.Year & "' And 月 = '" & d.Month & "' And 姓名='" & ss & "'")
If dr IsNot Nothing Then
Dim dr1 As DataRow = DataTables("实名制考勤").SQLFind("项目名称 = '" & _UserXmmc & "' and 年 = '" & d.Year & "' and 月 = '" & d.Month & "'")
If dr1("日" & d.Day) IsNot Nothing Then
With wb.AddMsgPage("", "msgpage", "提示", "你选择的日期已经考勤过,请勿重复操作!")
.icon = "Warn" '改变图标
.AddButton("btn1", "返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return Nothing '必须返回
Else
MessageBox.Show(3)
dr = DataTables("实名制考勤").AddNew
dr("所属机构") = _UserGroup
dr("项目名称") = _UserXmmc
dr("姓名") = ss
dr("年") = d.Year
dr("月") = d.Month
If lst.contains(ss)
dr("日" & d.Day) = "√"
Else
dr("日" & d.Day) = "×"
End If
dr.Save
End If
End If
Next
MessageBox.Show(4)
'保存并生成增加成功提示页面
With wb.AddMsgPage("","msgpage","考勤成功", "你是否继续考勤?") '生成成功提示页
.AddButton("btn1","继续考勤","Rename_checking.htm")
.AddButton("btn2","首  页","default.htm")
End With
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2023/2/15 9:01:00 [显示全部帖子]
此主题相关图片如下：qq截图20230215085939.jpg
