以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 统计总数问题  (http://foxtable.com/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  甜版