Foxtable(狐表)用户栏目专家坐堂 → [求助]列名无效


  共有6748人关注过本帖树形打印复制链接

主题:[求助]列名无效

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/3 12:08:00 [显示全部帖子]

改成

 

flt = flt & " and 经办人 = '" & yh & "'"


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/3 12:46: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


 回到顶部