主题：[求助]请问项目里面的代码那里错了？

循环的触发datacolchanged事件就会退出。

 

Select Case e.DataCol.Name
    Case "第一列","第二列","第三列","第四列","第五列"
        Dim cls() As String = { "第一列","第二列","第三列","第四列","第五列" }
        Dim count As Integer = 0
        Dim sum As Integer = 0
        For Each c As String In cls
            If e.DataRow(c) > 0Then
                sum += e.DataRow(c)
                count += 1
            End If
        Next
        e.DataRow("第六列") = sum
        If count > 0 Then e.DataRow("第七列") = sum/count
End Select

 

 

代码增加个判断，这个我会，我特别想知道，为什么我写的代码不行，虽然不够精简  但是那里出了问题 导致系统退出？

比如这句

 

e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第四列")

 

第六列的值，会不断变化，从而会循环不断的触发datacolchanged事件。你要加上列名的判断，如

 

If e.DataCol.Name = "第四列" Then

    e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第四列")

End If

额   这样额。。。。多谢多谢