以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  点击什么没反应  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177385)

--  作者：qazlinle6 --  发布时间：2022/5/19 17:11:00 --  点击什么没反应  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:01.txt

--  作者：有点蓝 --  发布时间：2022/5/19 17:18:00 --   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)

--  作者：qazlinle6 --  发布时间：2022/5/19 17:34:00 --   此主题相关图片如下：qq浏览器截图20220519173259.png

--  作者：有点蓝 --  发布时间：2022/5/19 17:42:00 --   把sql放到数据库测试有没有问题？

--  作者：qazlinle6 --  发布时间：2022/5/19 17:44:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:全部代码.txt

--  作者：有点蓝 --  发布时间：2022/5/19 20:03:00 --   ？

--  作者：qazlinle6 --  发布时间：2022/5/19 21:25:00 --   这个页面的代码，帮我看一下是不是哪里弄错了

--  作者：有点蓝 --  发布时间：2022/5/19 21:29:00 --   就丢一段代码，没有任何说明，没有办法看的。

--  作者：qazlinle6 --  发布时间：2022/5/19 21:37:00 --   我单击审核全部，要刷新页面，可是不执行审核，不知道为什么 [此贴子已经被作者于2022/5/19 21:38:02编辑过]

--  作者：有点蓝 --  发布时间：2022/5/19 21:41:00 --   3楼的sql放到数据库测试有没有问题？