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")
Case "B18","B19","B32"
e.DataRow("B16")=e.DataRow("B18")+e.DataRow("B19")+e.DataRow("B32")
Case "B20","B21","B33"
e.DataRow("B17")=e.DataRow("B20")+e.DataRow("B21")+e.DataRow("B33")
Case "B20","B26"
e.DataRow("B18")=e.DataRow("B20")+e.DataRow("B26")
Case "B21","B27"
e.DataRow("B19")=e.DataRow("B21")+e.DataRow("B27")
Case "B33","B38"
e.DataRow("B32")=e.DataRow("B33")+e.DataRow("B38")
Case "B34","B35","B36","B37"
e.DataRow("B33")=e.DataRow("B34")+e.DataRow("B35")+e.DataRow("B36")+e.DataRow("B37")
Case "B39","B40","B41","B42"
e.DataRow("B38")=e.DataRow("B39")+e.DataRow("B40")+e.DataRow("B41")+e.DataRow("B42")
Case "B46","B50","B58"
e.DataRow("B44")=e.DataRow("B46")+e.DataRow("B50")+e.DataRow("B58")
Case "B47","B51","B59"
e.DataRow("B45")=e.DataRow("B47")+e.DataRow("B51")+e.DataRow("B59")
Case "B47","B49"
e.DataRow("B46")=e.DataRow("B47")+e.DataRow("B49")
Case "B51","B53"
e.DataRow("B50")=e.DataRow("B51")+e.DataRow("B53")
Case "B59","B65"
e.DataRow("B58")=e.DataRow("B59")+e.DataRow("B65")
Case "学校名称"
Dim dr As DataRow = DataTables("学校信息").find("单位全称='" & e.DataRow("学校名称") & "'")
If dr IsNot Nothing
e.DataRow("所属中心校") = dr("所属中心校")
End If
End Select
老师，请问红色代码中,为什么B11输入数字B10不能改变，但B15输入数字B10能求出B11+B15,是什么原因
加好友 
发短信
Post By：2019/3/10 21:36:00 [只看该作者]
