Foxtable(狐表)用户栏目专家坐堂 → [求助]如何替换掉空值-重新上传了附件,请老师再看看


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

主题:[求助]如何替换掉空值-重新上传了附件,请老师再看看

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


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]如何替换掉空值-重新上传了附件,请老师再看看  发帖心情 Post By:2015/2/12 10:05:00 [只看该作者]

在项目中一些历史数据是从EXCEL导入的,存在空值,我用了代码想把空间替换成“未录入",但不成功,老师帮我看下错在哪了,谢谢!
DataTables("表A").ReplaceFor("第一列", ”未录入“,"[第一列] = nothing")
[此贴子已经被作者于2015/2/12 13:10:18编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 10:05:00 [只看该作者]

DataTables("表A").ReplaceFor("第一列", "未录入", "[第一列] is null")
[此贴子已经被作者于2015/2/12 10:05:50编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/2/12 10:11:00 [只看该作者]

果然可以了,还有一个问题,关于checkedComboBox的,在表上,有一列名为”硬度值“,我在窗体上做个了checkedComboBox_硬度值,由于这列数据目前是空的,所以窗体运行时checkedComboBox的下拉中没有任何项目,如何写代码能让我也能选择空值,就像EXCEL的筛选,如果一列的内容中有空值,会在筛选项目中有个"(空白)"
[此贴子已经被作者于2015/2/12 10:11:41编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/12 10:12:00 [只看该作者]

一样可以的,你的列表是来自列还是? 上个例子吧

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/12 10:12:00 [只看该作者]

赋值为

 

"空白|" & DataTables("表A").GetComboListString("第一列")


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


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/2/12 10:53:00 [只看该作者]

我上传一个附件,请老师们帮忙写个代码:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:checkedcombobox筛选的例子.zip


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

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


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/2/12 12:07:00 [只看该作者]

老师,例子中我的表述有个漏洞,说的不对,所以老师的代码达不到我要的结果,我要的结果是,我如果选择了“1”及“空白”,哪么筛选后结果应该是第一行,第三行与第五行

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


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


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/2/12 12:25:00 [只看该作者]

甜老师,我直接上例子,我表达不清,请您直接根据我例子中的要求帮我写下代码,多谢。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:checkedcombobox筛选的例子.zip


 回到顶部
总数 12 1 2 下一页