Case "考勤全部审核.htm"
msgbox(1)
Dim ddr As DataRow = DataTables("Users").SQLFind("Name='" & e.Cookies("username") & "' ")
msgbox(ddr is nothing)
Dim cmd As New SQLCommand
cmd.ConnectionName = "KPRJ"
Dim dt As DataTable
cmd.CommandText = "Select [_Identify],审核备注,审核签字,审核日期,备注打卡问题 From {考勤明细} Where 年 = '" & e.GetValues("年") & "' And 月 = '" & e.GetValues("月") & "' And ('," & ddr("账号企业名") & ",') like '%,' + 店名汉字 + ',%' And 审核备注 = '审核' "
msgbox(cmd.CommandText )
dt = cmd.ExecuteReader(True) '记得将参数设置为True
msgbox(dt.DataRows.count)
For Each dr As DataRow In dt.DataRows
dr("审核备注") = "通过"
dr("审核签字") = e.Cookies("username")
dr("审核日期") = Format(Date.Today, "yyyy-MM-dd")
dr("备注打卡问题") = dr("审核打卡问题")
Next
dt.Save()
msgbox(2)