Foxtable(狐表)用户栏目专家坐堂 → 列表项目筛选的问题(模糊筛选)


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

主题:列表项目筛选的问题(模糊筛选)

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


加好友 发短信
等级:一尾狐 帖子:433 积分:2912 威望:0 精华:0 注册:2011/3/15 12:49:00
列表项目筛选的问题(模糊筛选)  发帖心情 Post By:2022/5/15 0:14:00 [显示全部帖子]

Enter("ComboBox8")
Dim kh2 As WinForm.ComboBox = e.Form.Controls("ComboBox8")
Dim Filter As String
With e.Form.Controls("ComboBox7")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        If .Value > "" AndAlso .Value.Contains("-") Then
            Dim srr() As String = e.Form.Controls("ComboBox7").Value.split("-")
            Filter = "客户编号 = '" & srr(0) & "'and 面料名称 = '" & srr(1) & "'"
        Else
            Filter = "客户编号 Like '" & .Value & "' Or 面料名称 Like '" & .Value & "'"
        End If
    End If 
End With
kh2.ComboList = DataTables("窗口3_Table1").sqlGetComboListString("色号+'-' +颜色", Filter )

SelectedIndexChanged("ComboBox7")
Dim Filter As String
With e.Form.Controls("ComboBox7")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        If .Value > "" AndAlso .Value.Contains("-") Then
            Dim srr() As String = e.Form.Controls("ComboBox7").Value.split("-")
            Filter = "客户编号='" & srr(0) & "' And 面料名称='" & srr(1) & "'"
        Else
            Filter = "客户编号 Like '" & .Value & "' Or 面料名称 Like '" & .Value & "'"
        End If
    End If
End With
Tables("窗口3_Table1").Filter = filter

能不能帮我看看如何筛选
[此贴子已经被作者于2022/5/15 0:15:37编辑过]

 回到顶部