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

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

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

本地数据库不会慢，除非你打开项目的时候，进行了大量耗时的运算。

可以发上来给大家测试一下。

帮我看看 是怎么回事呢？那么慢

非常感谢！！！问题已经解决了！！！！

请帮我看看 这是 我设计的管理系统  运行起来很慢  是怎么回事呢？