-- 作者:洮沙
-- 发布时间:2018/12/3 11:10:00
-- [求助]列名无效
\'以下为条件判断部分代码
Dim yh1 As String = e.Cookies("yh") \'从cookie中获取用户名并解密 Dim yh As String = DecryptText(yh1,"bc2","op2") \'合成条件 Dim flt As String If e.GetValues.ContainsKey("unfilter") Then \'如果有unfilter参数,则清除cookie wb.ClearCookie() ElseIf e.PostValues.Count > 0 Then \'如果是filter.htm访问,则根据用户输入合成条件表达式 If e.PostValues.ContainsKey("kxtj") Then Dim txt As String txt = "\'%" & e.PostValues("kxtj") & "%\'" flt = "客户名称 Like " & txt wb.AppendCookie("kxtj", e.PostValues("kxtj")) \'将值写入cookie中 Else wb.DeleteCookie("kxtj") \'删除cookie End If If flt > "" Then flt = flt & " and " & "经办人 = " & yh & "" End If Else \'否则根据Cookie合成条件表达式 If e.Cookies.ContainsKey("kxtj") Then Dim txt As String txt = "\'%" & e.Cookies("kxtj") & "%\'" flt = "客户名称 Like " & txt End If If flt > "" Then flt = flt & " and " & "经办人 = " & yh & "" End If End If
此主题相关图片如下:qq截图20181203110103.png
此主题相关图片如下:2.png
出现“列名无效”的错误提示!不知是哪里代码出错了,自己找了好长时间,没有找出来,麻烦老师看一下,谢谢!
[此贴子已经被作者于2018/12/3 11:10:12编辑过]
|