Dim f As String = "1=1 "
If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
wb.ClearCookie()
ElseIf e.PostValues.Count > 0 Then ''没有这句,不会刷新第二页资料.
If e.PostValues.ContainsKey("zn") AndAlso e.PostValues.ContainsKey("shuru") Then
f = e.PostValues("zn") & " Like '%" & e.PostValues("shuru") & "%' And 入库数量 Is not null"
wb.AppendCookie("zn", e.PostValues("zn")) '将值写入cookie中
wb.AppendCookie("shuru", e.PostValues("shuru")) '将值写入cookie
'Else如果不包含zn和shuru参数，下面几行生成的条件肯定是有问题的，所以完全没有必要使用
'f = e.PostValues("zn") & " Like '%" & e.PostValues("shuru") & "%' And 入库数量 Is not null"
'wb.AppendCookie("zn", e.PostValues("zn")) '将值写入cookie中
'wb.AppendCookie("shuru", e.PostValues("shuru")) '将值写入cookie
End If
Else
If e.Cookies.ContainsKey("zn") andalso e.Cookies.ContainsKey("shuru") Then
f=e.Cookies("zn") & " Like '%" & e.Cookies("shuru") & "%' And 入库数量 Is not null"
'Else如果不包含zn和shuru参数，下面几行生成的条件肯定是有问题的，所以完全没有必要使用
'f=e.Cookies("zn") & " Like '%" & e.Cookies("shuru") & "%' And 入库数量 Is not null"
End If
End If
注意Dim f As String = "1=1 " 这一句代码的1=1
'如果不这样设置，假如上面没有任何条件那么f为空值，之后的【cmd.CommandText = "Select Count(*) From {明细表} Where " & f】代码生成的SQL就是这样的：Select Count(*) From {明细表} Where，where后面没有东西，这种SQL肯定是有问题的。
改为1=1之后，如果上面没有任何条件，cmd.CommandText里的额SQL就是：Select Count(*) From {明细表} Where 1=1，这种SQL是可以正常执行的
加好友 
发短信
Post By：2020/2/25 20:20:00 [显示全部帖子]
