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

有个地方解决了 还有个地方没变化！

另外，咨询下，我才1500行数据 8个表  登陆之后，速度相当的慢 是怎么回事呢？

round2 需要声明变量不？

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

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