以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  一个页面执行另一个也跟着执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189298)

--  作者：qazlinle6 --  发布时间：2023/11/22 21:57:00 --  一个页面执行另一个也跟着执行  Case "积分兑换进退货修改.htm" \'登录页面         Dim cmd1 As New SQLCommand         cmd1.C         Dim dt1 As DataTable         cmd1.CommandText = "Sele1ct * From {积分兑换进退货} where [_Identify]=" & e.GetValues("行号") & ""         dt1 = cmd1.ExecuteReader(True)         For Each dr1 As DataRow In dt1.DataRows             If e.GetValues("审核备注") = "已审核" Then                 dr1("审核备注") = e.GetValues("审核备注")                 dr1("审核姓名") = e.Cookies("username")                 dr1("审核日期") = Format(Date.Today, "yyyy-MM-dd")             End If              If dr1("日期") = Format(Date.Today, "yyyy-MM-dd") And e.GetValues("审核备注") = "未审核" Then                 dr1("审核备注") = e.GetValues("审核备注")                 dr1("审核姓名") = e.Cookies("username")                 dr1("审核日期") = Format(Date.Today, "yyyy-MM-dd")             End If              dr1.Save()         Next     Case "积分兑换进退货删除.htm" \'登录页面                DataTables("积分兑换进退货").SQLDeleteFor("[_Identify] =" & e.GetValues("行号") & " ")  为什么我执行 Case "积分兑换进退货修改.htm" \'登录页面 Case "积分兑换进退货删除.htm" \'登录页面   也跟着执行

--  作者：有点蓝 --  发布时间：2023/11/23 8:36:00 --   把完整代码贴出来看看