一步一步挖出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)。
小结：遇到问题还是要耐心找出关键点，编程不是一个“着急的活儿”。不断发现问题，解决问题，并扩展自己的知识，举一反三才是快速学习的有效途径之一。