Foxtable(狐表) → 用户栏目 → 专家坐堂 → 流水统计


  共有6246人关注过本帖树形打印复制链接

主题：流水统计
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00 		流水统计  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112378 积分：572152 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/17 20:50:00 [只看该作者]

如果取所有加载的数据，不需要条件

Dim drs As list(Of DataRow) = dt.Select("", "对账品名") 
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/7/17 21:35:00 [只看该作者]

我流水要分品名的，加载的有品名1,2,3,4,5
要分开算流水
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112378 积分：572152 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/17 21:41:00 [只看该作者]

for each s as sytring in dt.getvalues("对账品名") 
Dim drs As list(Of DataRow) = dt.Select("对账品名='" & s & "'") 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询