主题：计算出来的数据有很长的小数怎么回事呢？代码如下

只有这样一个复杂点的计算，其他的都是权限上的设置

Select Case e.DataCol.Name
    Case "客户名称","货物种类","进出库分类","吨位","库存"
        Dim dt As DataTable=DataTables("进出库信息记录")
        Dim mr As DataRow = e.DataRow
        Dim dr As DataRow
        dr = dt.Find("[_SortKey] < " & mr("_SortKey") & " And [客户名称] = '" & mr("客户名称") & "'And[货物种类]= '" & mr("货物种类") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            If  mr("进出库分类")="转存" Then
                mr("库存")=mr("吨位")
            End If
            If  mr("进出库分类")="进库" Then
                mr("库存")=0+mr("吨位")
            End If
            If  mr("进出库分类")="出库" Then
                mr("库存")=0-mr("吨位")
            End If
            If  mr("进出库分类")="对过" Then
                mr("库存")=0
            End If
        End If
        If dr IsNot Nothing Then
            If  mr("进出库分类")="进库" Then
                mr("库存")=dr("库存")+mr("吨位")
            End If
            If  mr("进出库分类")="出库" Then
                mr("库存")=dr("库存")-mr("吨位")
            End If
            If  mr("进出库分类")="对过" Then
                mr("库存")=dr("库存")
            End If
        End If
    End  Select