主题：请咨询下：

我见了一个项目，但是在想里面粘贴东西的时候，经常项目自动关闭是怎么回事了，粘贴进去的东西也没有了。请大神解释下，谢谢~~~

往哪里黏贴东西自动关闭? 单元格?  是否DataColChanged写了死循环代码?

 看是否这个错误

 

http://www.foxtable.com/help/topics/1522.htm

 

Select Case e.DataCol.name
    Case "进出库日期","进出库分类","计费截止日期","优惠天数","堆存天数","计费天数","吨位","费率","堆存费累计"
        Dim dt As DataTable = DataTables ("堆存费计算表")
        Dim mr As DataRow = e.DataRow
        Dim d1 As Date = mr("计费截止日期")
        Dim d0 As Date = mr("进出库日期")
        Dim u As Decimal = mr("吨位")
        Dim t As TimeSpan = d1-d0
        Dim m As Integer = t.Totaldays
        Dim f As Decimal = mr("费率")
        Dim n As Integer = mr("优惠天数")
        Dim dr As DataRow
        dr = dt.Find("[_SortKey] < " & mr("_SortKey") & "", "[_SortKey] Desc")
        If dr Is Nothing Then
            messagebox.show("请输入最近一次计费情况!","提示")
        End If
        If dr IsNot Nothing Then
            If mr("进出库分类") = "转存"  Then
                mr("堆存天数")= m
                mr("扣减天数")= 0
                mr("计费天数")= mr("堆存天数")
                mr("应计费用")=mr("计费天数")*mr("吨位")*mr("费率")
                mr("堆存费累计")= dr("堆存费累计")+mr("应计费用")
            End If
            If mr("进出库分类") = "进库"  Then
                If mr("堆存天数") >= mr("优惠天数") Then
                mr("堆存天数")= m
                mr("扣减天数")= 0
                mr("计费天数")= mr("堆存天数")-mr("优惠天数")
                mr("应计费用")=mr("计费天数")*mr("吨位")*mr("费率")
                mr("堆存费累计")= dr("堆存费累计")+mr("应计费用")
                End If
                If mr("堆存天数") < mr("优惠天数") Then
                mr("堆存天数")= 0
                mr("扣减天数")= 0
                mr("计费天数")= 0
                mr("应计费用")=mr("计费天数")*mr("吨位")*mr("费率")
                mr("堆存费累计")= dr("堆存费累计")+mr("应计费用")
                End If
           End If

请狐神帮我看看这个代码有什么问题~~~谢谢！

你这个代码很可能会导致死循环，你这样判断列名，将所有列加进去，等于没有判断。

例如堆存天数变化，执行上面的代码，代码中又计算堆存天数，很容易死循环。

 

你不要问代码有什么问题，写好代码，上传文件，直接告诉大家你在什么事件写了代码，目的是什么，遇到了什么问题。

 简单的做法：你在代码前面和结尾加上事件的暂停代码。

 

http://www.foxtable.com/help/topics/2218.htm

 

写在datachanged中，问题是粘贴一些数据进出就自动关闭项目了。

 看7楼，自己改一下。

谢谢~~~问题解决了，真是太佩服你们了~~什么问题都知道症结所在