Foxtable(狐表)用户栏目专家坐堂 → [求助] 统计总数问题


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

主题:[求助] 统计总数问题

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


加好友 发短信
等级:幼狐 帖子:155 积分:1096 威望:0 精华:0 注册:2014/8/14 8:38:00
[求助] 统计总数问题  发帖心情 Post By:2014/10/14 10:15:00 [只看该作者]

我是想在窗口中统计会员信息表的会员数量,下面的“全部会员统计”没有问题可以统计出来,而后面的“银卡会员统计”不出来,还是显示的是总会员数量。
“会员信息表”中有一个“会员级别”列,这一列有:“金卡”“银卡”。我想分别对金卡和银卡做一个统计如何写代码?
'-------------------全部会员统计------------------
Dim hysln As Integer = Tables("会员信息表").Rows.Count
Dim hysl As WinForm.Label = e.Form.Controls("Label50")
hysl.Text = "会员总数为:  " & hysln

'-------银卡会员统计-------
Dim ykhysln As Integer = Tables("会员信息表").Rows.Count
Dim ykhysl As WinForm.Label = e.Form.Controls("Label96")
Dim r As Row = Tables("会员信息表").Current
If r IsNot Nothing Then
    If r("会员级别") = "银卡" Then
        ykhysl.Text = "银卡会员数:  " & ykhysln
    End If
End If


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


加好友 发短信
等级:幼狐 帖子:155 积分:1096 威望:0 精华:0 注册:2014/8/14 8:38:00
  发帖心情 Post By:2014/10/14 10:26:00 [只看该作者]

有前辈给看看指点下嘛?

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


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

Dim hysln As Integer = Tables("会员信息表").Compute("Count(会员级别)", "会员级别 = '金卡'")
Dim hysl As WinForm.Label = e.Form.Controls("Label50")
hysl.Text = "会员总数为:  " & hysln


'-------银卡会员统计-------
Dim ykhysln As Integer = Tables("会员信息表").Compute("Count(会员级别)", "会员级别 = '银卡'")
Dim ykhysl As WinForm.Label = e.Form.Controls("Label96")
ykhysl.Text = "银卡会员数:  " & ykhysln

 

 

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

 


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


加好友 发短信
等级:幼狐 帖子:155 积分:1096 威望:0 精华:0 注册:2014/8/14 8:38:00
  发帖心情 Post By:2014/10/14 10:47:00 [只看该作者]

Thanks  甜版

 回到顶部