Foxtable(狐表)用户栏目专家坐堂 → 按条件统计 记录条数


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

主题:按条件统计 记录条数

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


加好友 发短信
等级:三尾狐 帖子:688 积分:4903 威望:0 精华:0 注册:2013/10/27 17:14:00
按条件统计 记录条数  发帖心情 Post By:2015/8/8 17:11:00 [只看该作者]

统计 当前 TABLE表TB 的 多选列为TRUE的行数的最简代码 如何 写


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


加好友 发短信
等级:超级版主 帖子:107757 积分:548124 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/8 17:19:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:688 积分:4903 威望:0 精华:0 注册:2013/10/27 17:14:00
  发帖心情 Post By:2015/8/8 17:23:00 [只看该作者]

Dim n As Integer=e.Table.GetCheckedRows.count
If _addwr=0 And n=2 Then
    MessageBox.show("修改物品只能单选!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    e.Row.Checked  = False
End If

 

 

这个方法已会用了,问题是我没有使用系统提供的复选框,那样就没有行号了

 

为了有行号,我另加了一个 逻辑 选择列。这个逻辑 选择列就是,多选列

 


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


加好友 发短信
等级:超级版主 帖子:107757 积分:548124 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/8 17:28:00 [只看该作者]

Dim s As String = "[逻辑列] = 1"
Tables("表A").Filter = s

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/9 11:19:00 [只看该作者]

汗?直接统计也不会?

 

http://www.foxtable.com/help/topics/0393.htm

 


 回到顶部