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

循环的触发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