以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  流水统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178717)
--  作者：qazlinle6
--  发布时间：2022/7/17 20:38:00
--  流水统计
 
        Dim sql As String = "Se1lect ................

上面显示年.月全部，下面流水统计年.月.对账品名

Dim drs As list(Of DataRow) = dt.Select("这里什么加对账品名流水", "对账品名") 
        If drs.count > 0 Then
            Dim dr1 As DataRow = drs(0)
            dr1("柜台余货数量") = dr1("已进货数量") - dr1("已退货数量") - dr1("已销售数量")
            dr1("柜台余货金重") = dr1("已进货金重") - dr1("已退货金重") - dr1("已销售金重")
            dr1("柜台余货标价") = dr1("已进货标价") - dr1("已退货标价") - dr1("已销售标价")
            For i As Integer = 1 To drs.count - 1
                drs(i)("柜台余货数量") = drs(i - 1)("柜台余货数量") + drs(i)("已进货数量") - drs(i)("已退货数量") - drs(i)("已销售数量")
                drs(i)("柜台余货金重") = drs(i - 1)("柜台余货金重") + drs(i)("已进货金重") - drs(i)("已退货金重") - drs(i)("已销售金重")
                drs(i)("柜台余货标价") = drs(i - 1)("柜台余货标价") + drs(i)("已进货标价") - drs(i)("已退货标价") - drs(i)("已销售标价")
            Next 
        End If
--  作者：有点蓝
--  发布时间：2022/7/17 20:50:00
--  
如果取所有加载的数据，不需要条件

Dim drs As list(Of DataRow) = dt.Select("", "对账品名") 
--  作者：qazlinle6
--  发布时间：2022/7/17 21:35:00
--  
我流水要分品名的，加载的有品名1,2,3,4,5
要分开算流水
--  作者：有点蓝
--  发布时间：2022/7/17 21:41:00
--  
for each s as sytring in dt.getvalues("对账品名") 
Dim drs As list(Of DataRow) = dt.Select("对账品名=\'" & s & "\'")