主题：请咨询下：

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

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

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

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

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