Select Case e.DataCol.name Case "会计年度" Dim mns() As String ={"库存现金","银行存款","其他货币资金","短期投资"} For Each mn As String In mns e.DataRow(mn) = DataTables("未审科目余额").Compute("sum(" & mn & ")","会计年度 = '" & e.DataRow("会计年度") & "'") NextEnd Select