Foxtable(狐表)用户栏目专家坐堂 → 求教代码


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

主题:求教代码

美女呀,离线,留言给我吧!
bm
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
求教代码  发帖心情 Post By:2011/10/14 14:10:00 [只看该作者]

求教“隐藏空值的例”的代码。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/14 14:34:00 [只看该作者]

图片点击可在新窗口打开查看

不明白为何会有这样的要求?

 

 


 回到顶部
美女呀,离线,留言给我吧!
bm
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
是这样的  发帖心情 Post By:2011/10/14 14:45:00 [只看该作者]

是这样的狐狸爸爸。我是要打印表。作为账单传给客户的。空值太多看起来不清楚。手工筛选又太麻烦,也容易搞错
[此贴子已经被作者于2011-10-14 14:47:07编辑过]

 回到顶部
美女呀,离线,留言给我吧!
bm
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
打印的是查询表  发帖心情 Post By:2011/10/14 14:49:00 [只看该作者]

打印的是查询表

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/14 14:49:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
bm
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
这个我知道的。  发帖心情 Post By:2011/10/14 14:58:00 [只看该作者]

狐狸爸爸这个我知道的。我是要动态的。因为每个客户的收费项目都不一样。同一个客户不同的订单收费项目也不一样

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/14 15:06:00 [只看该作者]

这需要具体情况具体分析,做个简单的表传上来,说明需要怎样排除行。

 回到顶部
美女呀,离线,留言给我吧!
bm
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
狐狸爸爸请您看看  发帖心情 Post By:2011/10/14 15:26:00 [只看该作者]

如项目。筛选客户“1”后。安窗口按钮需要隐藏空值的例。

如项目。筛选订单号“001”后。安窗口按钮需要隐藏空值的例。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/10/14 15:40:00 [只看该作者]

For Each c As col In Tables("表A").cols
    Dim filter As String = c.name & " Is not Null"
    If Tables("表A").Filter > "" Then
        filter = filter & " And "  & Tables("表A").Filter
    End If
    If DataTables("表A").Find( filter) IsNot Nothing Then
       c.Visible = True
    Else
        c.Visible = False    
    End If
Next

 回到顶部
美女呀,离线,留言给我吧!
bm
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3463 威望:0 精华:0 注册:2011/9/13 23:27:00
谢谢狐狸爸爸  发帖心情 Post By:2011/10/14 15:44:00 [只看该作者]

狐狸爸爸您好强啊。

 回到顶部