多值加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String

With e.Form.Controls("店名")

If .Value IsNot Nothing Then

Filter = " ','+店名汉字+',' like '%," & .Value & ",%'"

End If

End With

窗口店名有1,2,3,4,5 表什么加载不岀东西，只有单独选1才加载的了

请上传实例说明

此主题相关图片如下：qq浏览器截图20210626141342.png

Dim Filter As String

With e.Form.Controls("店名")

If .Value IsNot Nothing Then

Filter = " ','+店名汉字+',' like '%," & .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

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

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

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

If Filter > "" Then

DataTables("进货退货").LoadFilter = Filter

DataTables("进货退货").Load()

End If

店名单值才可以加载，多值加载就没内容

[此贴子已经被作者于2021/6/26 14:14:42编辑过]

Filter = " '," & .Value & ",' like '%,' +店名汉字+',%'"

此主题相关图片如下：qq浏览器截图20210626141342.png

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("店名").Value

Dim str1 As String = e.Form.Controls("开始日期").Value

Dim str2 As String = e.Form.Controls("结束日期").Value

cmb.ComboList = DataTables("进货退货").SQLGetComboListString("对账品名", " ','+店名汉字+',' like '%," & str & ",%' And 日期>= '" & str1 & "' And 日期<= '" & str2 & "'")

店名单值对账品名才可以取值，多值取值就没内容

[此贴子已经被作者于2021/6/26 15:49:07编辑过]

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("店名").Value

Dim str1 As date = e.Form.Controls("开始日期").Value

Dim str2 As date = e.Form.Controls("结束日期").Value

cmb.ComboList = DataTables("进货退货").SQLGetComboListString("对账品名", "'," & str & ",' like '%,' +店名汉字+',%' And 日期>= '" & str1 & "' And 日期<= '" & str2 & "'")

主题：多值加载