Select Case e.DataCol.name Case "一","二","三","四" e.DataRow("小结") = e.DataRow("一")+e.DataRow("二")+e.DataRow("三")+e.DataRow("四") End Select