Foxtable(狐表)用户栏目专家坐堂 → [求助]在窗口内做自定义筛选,发现只能筛选数字和英文,文本失效


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

主题:[求助]在窗口内做自定义筛选,发现只能筛选数字和英文,文本失效

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


加好友 发短信
等级:婴狐 帖子:25 积分:461 威望:0 精华:0 注册:2019/2/20 12:04:00
[求助]在窗口内做自定义筛选,发现只能筛选数字和英文,文本失效  发帖心情 Post By:2023/10/31 20:30:00 [只看该作者]

不知道是不是因为把2019的foxtable升级到2022的原因
原本的筛选功能,文本的筛选失灵了,英文及数字的正常,找了半天没发现原因,不过数字和英文都可以,只有中文文本不行。

代码如下:
Dim filter As String
Dim sts() As String = {"合同号", "客户名称", "业务员", "长度", "宽度", "厚度", "原料产地", "事业部"}
For Each st As String In sts
    Dim val As String = e.Form.Controls(st).value
    If val > "" Then
        val = val.Replace("*", "[*]")
        
        If filter = "" Then
            filter = st & " like '%" & val & "%'"
        Else
            filter = filter & " and " & st & " like '%" & val & "%'"
        End If
    End If
Next

If e.Form.Controls("已完结").Checked = True  Then' 如果付款状态选择了"已付"
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "合同完结 = 1"
End If
If e.Form.Controls("未完结").Checked = True  Then' 如果付款状态选择了"未付"
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "(合同完结 = 0 Or 合同完结 Is Null)"
End If

With e.Form.Controls("实际交货期起始日")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("实际交货期结束日")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= '" & .Value & "'"
    End If
End With

    DataTables("销售合同基础表").LoadFilter = Filter
    DataTables("销售合同基础表").load()
    

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/10/31 20:34:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:25 积分:461 威望:0 精华:0 注册:2019/2/20 12:04:00
  发帖心情 Post By:2023/10/31 21:53:00 [只看该作者]

谢谢,成功解决,修改排序规则即可

 回到顶部