主题：[求助]正负数

Select Case e.DataCol.Name
    Case "卖出_数量","卖出_卖出价","卖出_金额","仓储_数量","仓储_金额"
        Dim pdr As DataRow = e.DataTable.Find("_Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If pdr IsNot Nothing Then
            e.DataRow("盈亏") = e.DataRow("卖出_金额") + e.DataRow("仓储_金额") - pdr("仓储_金额")
        End If
End Select

Select Case e.DataCol.Name
    Case "卖出_数量","卖出_卖出价","卖出_金额","仓储_数量","仓储_金额"
        Dim pdr As DataRow = e.DataTable.Find("股piao名称 = '" & e.DataRow("股piao名称") & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If pdr IsNot Nothing Then
            e.DataRow("盈亏") = e.DataRow("卖出_金额") + e.DataRow("仓储_金额") - pdr("仓储_金额")
        End If
End Select

 请去学习视频教程 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

 能说的已经说了。你先看懂以前发给你的代码，看不懂以后你什么都不会做。