Select Case e.DataCol.Name
    Case "shuliang", "price"
        Dim rks As Double = DataTables("rukudan").Compute("sum(shuliang)", "cord = \'" & e.DataRow("cord") & "\'")
        Dim cks As Double = e.DataTable.Compute("sum(shuliang)", "cord = \'" & e.DataRow("cord") & "\'")
        If cks > rks Then
      

请问这个地方统计的是数据库后台的数据，还是当前数据？如果是当前数据，怎么改为统计后台数据

还想添加一个参数 显示当前是累计多少个商品，也是要统计后台数据库，而不是当前程序的数据

因为程序加载的时候，默认不加载数据

\'     msgbox("无法出库,库存不足")
        Else
            Dim count As Integer = 0
            Dim drs As List(Of DataRow) = DataTables("rukudan").Select("cord = \'" & e.DataRow("cord") & "\'", "_Identify")
            For i As Integer = 0 To drs.count - 1
                Dim dr As DataRow = drs(i)
                count += dr("shuliang")
                Dim sy As Integer = count - (cks - e.DataRow("shuliang"))
                If sy >= 0 Then
                    Dim cb, cbs As Double
                    count = 0
                    For j As Integer = i To drs.count - 1
                        dr = drs(j)
                        If j = i Then
                            count += sy
                            cb = sy * dr("price")
                        Else
                            count += dr("shuliang")
                            cb = dr("shuliang") * dr("price")
                            sy = dr("shuliang")
                        End If
                        If count >= e.DataRow("shuliang") Then
                            cbs += (e.DataRow("shuliang") - (count - sy)) * dr("price")
                            msgbox(cbs & count)
                            e.DataRow("lirun") = e.DataRow("shuliang") * e.DataRow("price") - cbs
                            Exit For
                        Else
                            cbs += cb
                        End If
                    Next
                    Exit For
                End If
            Next
        End If
End Select