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" '登录页面 也跟着执行