不能重复,重复的时候,需要写多个 select end select
Select e.DataCol.name
Case "B2","B17","B47","B68","B69","B70"
e.DataRow("B0")= e.DataRow("B2")+e.DataRow("B17")+ e.DataRow("B47")+ e.DataRow("B68")+ e.DataRow("B69")+ e.DataRow("B70")
Case "B3","B10"
e.DataRow("B1")=e.DataRow("B3")+e.DataRow("B10")
Case "B4","B11"
e.DataRow("B2")=e.DataRow("B4")+e.DataRow("B11")
Case "B4","B7"
e.DataRow("B3")=e.DataRow("B4")+e.DataRow("B7")
Case "B11","B15"
e.DataRow("B10")=e.DataRow("B11")+e.DataRow("B15")