以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 统计总数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58226)
--  作者：tuyage
--  发布时间：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
--  发布时间：2014/10/14 10:26:00
--  
有前辈给看看指点下嘛？
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/10/14 10:47:00
--  
Thanks  甜版