<a href=""审核.htm?编号="& a & " ""> <div class='item6'>"& a001 &" </a></div>
Case "审核.htm"
...... {刷卡积分} where 编号 = '"& e.GetValues("编号") & "'"
dt12 = cmd12.ExecuteReader(True)
If dt12.datarows.count > 0 Then
Dim dr12 As DataRow = dt12.datarows(0)
dr12("审核勾选") = True
dr12.Save()
End If
不跳审核页,直接执行
[此贴子已经被作者于2022/1/26 20:52:08编辑过]