- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何替换掉空值-重新上传了附件，请老师再看看 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64369)
-- 发布时间：2015/2/12 10:05:00
-- [求助]如何替换掉空值-重新上传了附件，请老师再看看
在项目中一些历史数据是从EXCEL导入的，存在空值，我用了代码想把空间替换成“未录入"，但不成功，老师帮我看下错在哪了，谢谢！
DataTables("表A").ReplaceFor("第一列", ”未录入“,"[第一列] = nothing")
[此贴子已经被作者于2015/2/12 13:10:18编辑过]
-- 发布时间：2015/2/12 10:05:00
--
DataTables("表A").ReplaceFor("第一列", "未录入", "[第一列] is null")
[此贴子已经被作者于2015/2/12 10:05:50编辑过]
-- 发布时间：2015/2/12 10:11:00
--
果然可以了，还有一个问题，关于checkedComboBox的，在表上，有一列名为”硬度值“，我在窗体上做个了checkedComboBox_硬度值，由于这列数据目前是空的，所以窗体运行时checkedComboBox的下拉中没有任何项目，如何写代码能让我也能选择空值，就像EXCEL的筛选，如果一列的内容中有空值，会在筛选项目中有个"（空白）"
[此贴子已经被作者于2015/2/12 10:11:41编辑过]
-- 发布时间：2015/2/12 10:12:00
--
一样可以的,你的列表是来自列还是? 上个例子吧
-- 发布时间：2015/2/12 10:12:00
--
赋值为
"空白|" & DataTables("表A").GetComboListString("第一列")
-- 发布时间：2015/2/12 10:53:00
--
我上传一个附件，请老师们帮忙写个代码：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:checkedcombobox筛选的例子.zip |
-- 发布时间：2015/2/12 10:57:00
--
If e.Sender.Text = "空白" Then
Tables("表A").Filter = "第一列 is null"
Else If e.Sender.text = "全选" Then
Tables("表A").Filter = ""
End If
-- 发布时间：2015/2/12 12:07:00
--
老师，例子中我的表述有个漏洞，说的不对，所以老师的代码达不到我要的结果，我要的结果是，我如果选择了“1”及“空白”，哪么筛选后结果应该是第一行，第三行与第五行
-- 发布时间：2015/2/12 12:15:00
--
Dim filter As String = "1=2"
If e.Sender.Text.Contains("空白") Then
filter &= " or 第一列 is null"
End If
If e.Sender.text.Contains("全选") Then
filter &= " or 1=1"
End If
Tables("表A").Filter = "第一列 in (\'" & e.Sender.Text.Replace(",", "\',\'") & "\') or " & filter
-- 发布时间：2015/2/12 12:25:00
--
甜老师，我直接上例子，我表达不清，请您直接根据我例子中的要求帮我写下代码，多谢。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:checkedcombobox筛选的例子.zip |