一步一步挖出Compute

前端之家收集整理的这篇文章主要介绍了一步一步挖出Compute前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

前几天在做结账的时候,对数据表DataGridView控件的单列求和纠结了一番。
现在几乎养成了习惯,对于一些东西疏于开始的思考,不会先想到百度,这里我是先想到了第一版的机房收费那块的结账求和:
截取了充值金额片段,代码如下:

'读取充值金额
    strsql = "select sum(addmoney) as AddCash from Recharge_Info where UserID='" & Trim(comboOperatorUsername.Text) & "'And date= '" & Format(Date,"yyyy-mm-dd") & "' And status= '" & "未结账" & "'having sum(addmoney) is not null"
    Set mrcRecharge = Executesql(strsql,MsgText)
    If mrcRecharge.EOF = True Then
        txtChargeCash.Text = 0
    Else
        txtChargeCash.Text = mrcRecharge("AddCash").Value  '退卡金额
    End If

仿照这个,开始我只是简单地像个小白一样像下面这样写:

    strsql = "Select sum(T_Charge.addMoney) From T_Charge Where UserID=@UserID and Date=@Date and status='False'"
    Dim parameters As sqlParameter() = {New sqlParameter("@UserID",chargeInfo.UserID),New sqlParameter("@Date",chargeInfo.ReturnCardDate)}    '给sql添加参数
    dt = help.ExecuteSelectstrsql,CommandType.Text,parameters)


其实开始自己也觉得这样肯定是不行的,但是具体哪儿不对?肯定是求和的sql语句!
经过一番测试,果然不行,提示说“找不到addMoney列”
于是自己开始茫然了,果断求度娘……
由于不是亲生的,度娘没有给出想要的答案,几乎都是和上边的一样。最后还得靠自己。
经过断点调试,发现问题先从U层表现出来了。
如下:txtChargeMoney.Text = dtAllChargeMoney.Rows(0)("addMoney").ToString()
这里的txtChargeMoney.Text 收不到值。
这次更加平静了些,理清思路,换了关键词,包含“VB.net、DatagridView、某列求和”,终于找出了Compute这个关键词!也是这个问题的关键点。

DataTable.Compute方法
计算用来传递筛选条件的当前行上的给定表达式。
语法:Public Function Compute ( expression As String,filter As String ) As Object
参数:
expression 类型:System.String,要计算的表达式,可以理解为 “参数需要的聚合函数”。
filter 类型:System.String,要限制在表达式中进行计算的行的筛选器,可理解为:filter 确定在表达式中使用哪些行。
返回值 类型:System.Object
Object ,设置为计算结果。 如果该表达式计算得出 Null,则返回值将为即为 DBNull.Value。

好了,根据以上信息,得出该sql语句应写成:

(D层)strsql = "Select T_Charge.addMoney From T_Charge Where UserID=@UserID and Date=@Date and status='False'"
(U层)txtChargeMoney.Text = dtAllChargeMoney.Compute("sum(addMoney)","true").ToString()

那么,解决了单列的求和问题,如果是两列运算之后再求和,该怎么办?如:列a项和列b项之和。
我们想当然的会认为:Compute("sum(a * b),但其实这样是错的!
正解:在这种情况下,假定有一个名为“c”的 DataColumn,并且 Expression 属性设置为:"a * b"
Compute 方法的表达式参数将为:Sum(c)。

小结:遇到问题还是要耐心找出关键点,编程不是一个“着急的活儿”。不断发现问题,解决问题,并扩展自己的知识,举一反三才是快速学习的有效途径之一。

猜你在找的VB相关文章