主题：关于计算量大卡死问题

If e.DataCol.Name = "净重辅助" OrElse e.DataCol.Name ="级别"  OrElse e.DataCol.Name ="层级"   Then

            Dim a1 As String = e.dataRow("层级") & "."

            Dim a2 As Integer = e.dataRow("级别")+1

            If e.DataTable.Compute("count(层级)","层级 like '" & a1 & "%' and 级别= '" & a2 & "' ") > 0 Then   

                e.dataRow("净重")= e.DataTable.compute("Sum(净重辅助)","层级 like '" & a1 & "%' and 级别= '" & a2 & "' ") 

            End If

dim idx as integer = e.dataRow("层级").lastindexof(".")

if idx = -1 then return

dim a4 as string = e.dataRow("层级").substring(0,idx)

        Dim a3 As Integer = e.dataRow("级别") - 1

dim dr as datarow = e.DataTable.find("层级 like '" & a4 & "%' and 级别= '" & a3 & "' ")

if dr isnot nothing then

e.DataTable.DataCols("层级").RaiseDataColChanged(dr)

end if

    End If