专家坐堂-[求助]GetComboListString如何获取空白值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]GetComboListString如何获取空白值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157608)

--  作者：lgj716330
--  发布时间：2020/10/22 12:02:00
--  [求助]GetComboListString如何获取空白值
Dim cmb4 As WinForm.CheckedComboBox = e.form.Controls("GC")
cmb4.ComboList = DataTables("表1").GetComboListString("特殊备注")

如何将特殊备注列的空白内容也取过来，象下图红框中这样

此主题相关图片如下：qq图片20201022120108.png

--  作者：有点蓝
--  发布时间：2020/10/22 12:06:00
--
自己加：

cmb4.ComboList = "全选|空白|" & DataTables("表1").GetComboListString("特殊备注")

--  作者：lgj716330
--  发布时间：2020/10/22 12:18:00
--
如何将“全选”选住的时候，底下所有的选项都选住，“全选”取消选住的时候，底下所有的选项都取消选住

--  作者：有点蓝
--  发布时间：2020/10/22 13:39:00
--
如果使用的是CheckedComboBox 控件没有办法。如果是CheckedListBox控件，到ItemCheck事件处理即可

--  作者：lgj716330
--  发布时间：2020/10/22 14:50:00
--
With e.Form.Controls("YC")
    If .Value IsNot Nothing Then
        If Filter1 > "" Then
            Filter1 = Filter1 & " And "
        End If
        Filter1 = Filter1 & "类型 in ( \'" & .Value.replace(",","\',\'") & "\')"
    End If
End With

b.Filter = "" & filter1 & "“

我想改成”类型“不包括选择的项目，要怎么写

--  作者：有点蓝
--  发布时间：2020/10/22 14:58:00
--
Filter1 = Filter1 & "类型 not in ( \'" & .Value.replace(",","\',\'") & "\')"

--  作者：lgj716330
--  发布时间：2020/10/22 15:01:00
--
试过不行，取不到值，可能把空值的记录也排除掉了

--  作者：有点蓝
--  发布时间：2020/10/22 15:10:00
--
如果不行，肯定是没有复合条件的数据。

如果要包含空值
Filter1 = Filter1 & "(类型 not in ( \'" & .Value.replace(",","\',\'") & "\') or 类型 is null)"