主题：[求助]计算速度，死机

我执行下面的代码就死机是什么原因，是不是刷新问题，就像VBA一样要关闭刷新

 

Dim dr As DataRow=e.DataRow

 

Dim tmp As Single  '单精度型 

Dim reg As new System.Text.RegularExpressions.Regex("\[.*\]")

 

'tmp =eval(reg.replace(dr("计算公式_水平"),""),dr)+eval(reg.replace(dr("计算公式_垂直_开关"),""),dr)+eval(reg.replace(dr("计算公式_垂直_配电箱"),""),dr) '计算相加初始数值

 

Select Case  e.DataCol.Name       

               

    Case "楼层_数量","构件_数量"

       

        If dr.IsNull("楼层_数量") OrElse dr.IsNull("构件_数量") Then

            dr("管道合计") = Nothing

           

            dr("定额_电线规格1合计") = Nothing

            dr("定额_电线规格2合计") = Nothing

           

            dr("清单_电线规格1合计") = Nothing

            dr("清单_电线规格2合计") = Nothing

           

        End If

MessageBox.Show(1)

 

       

    Case "规格型号"

       

        dr = DataTables("常用数据").Find("规格型号 = '" & e.DataRow("规格型号") & "'" )

        If dr IsNot Nothing '如果找到, 则设置各列内容

            e.DataRow("规格型号")= dr("规格型号")

            e.DataRow("电线_根数1")= dr("电线_根数1")

            e.DataRow("电线_规格1")= dr("电线_规格1")

           

            e.DataRow("电线_根数2")= dr("电线_根数2")

            e.DataRow("电线_规格2")= dr("电线_规格2")

            e.DataRow("管道规格")= dr("管道规格")

        End If

MessageBox.Show(2)

 

       

    Case "电线_根数1","电线_规格1"

       

        If dr.IsNull("电线_规格1") OrElse dr.IsNull("电线_根数1") Then

           

            dr("定额_电线规格1合计") = Nothing

            dr("清单_电线规格1合计") = Nothing

           

        End If

       

    Case "电线_根数2","电线_规格2"

       

        If dr.IsNull("电线_规格2") OrElse dr.IsNull("电线_根数2") Then

           

            dr("定额_电线规格2合计") = Nothing

            dr("清单_电线规格2合计") = Nothing

           

        End If

       

       

        MessageBox.Show(3)

 

       

    Case "计算公式_水平","计算公式_垂直_开关","计算公式_垂直_配电箱"

       

       

        dr("计算公式_小计") =eval(reg.replace(dr("计算公式_水平"),""),dr)+eval(reg.replace(dr("计算公式_垂直_开关"),""),dr)+eval(reg.replace(dr("计算公式_垂直_配电箱"),""),dr) '计算相加初始数值

MessageBox.Show(4)

 

       

        

       

    Case "特性"

       

        If dr("特性")="线" Or dr("特性")= "线槽"  Then

           

            dr("管道合计") = Nothing

            

        Else

            If dr("特性")="管" Then

               

                tmp =eval(reg.replace(dr("计算公式_水平"),""),dr)+eval(reg.replace(dr("计算公式_垂直_开关"),""),dr)+eval(reg.replace(dr("计算公式_垂直_配电箱"),""),dr)

               

                dr("管道合计") =tmp*dr("构件_数量")*dr("楼层_数量")

               

               

                dr("定额_电线规格1合计") = Nothing

                dr("定额_电线规格2合计") = Nothing

               

                dr("清单_电线规格1合计") = Nothing

                dr("清单_电线规格2合计") = Nothing

               

            End If

        End If

MessageBox.Show(5)

 

       

        '计算结果程序

       

        tmp = dr("计算公式_小计") 'eval(reg.replace(dr("计算公式_水平"),""),dr)+eval(reg.replace(dr("计算公式_垂直_开关"),""),dr)+eval(reg.replace(dr("计算公式_垂直_配电箱"),""),dr)

       

        MessageBox.Show(6)

 

       

        dr("管道合计") =tmp*dr("构件_数量")*dr("楼层_数量")

       

        dr("定额_电线规格1合计") =(tmp+dr("电线预留长度"))*dr("电线_根数1")*dr("构件_数量")*dr("楼层_数量")

        dr("定额_电线规格2合计") =(tmp+dr("电线预留长度"))*dr("电线_根数2")*dr("构件_数量")*dr("楼层_数量")

       

       

        dr("清单_电线规格1合计") =tmp*dr("电线_根数1")*dr("构件_数量")*dr("楼层_数量")

        dr("清单_电线规格2合计") =tmp*dr("电线_根数2")*dr("构件_数量")*dr("楼层_数量")

        MessageBox.Show(7)

 

End Select

你代码写在DataColChanged?  死循环了吧

搞不定的话，就发文件上来，说明目的和任务，以及遇到的问题。