?水不准 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (4).txt

For Each s As String In dt.getvalues("对账品名")

Dim drs As list(Of DataRow) = dt.Select("对账品名='" & s & "' and 店名='" & e.PostValues("店名") & "'", "对账品名")

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)("已销售标价")

End If

?水不准，然后查询一下柜台余货就变动一下

?水不准是啥玩意？

数据的东西哪个不准自己跟踪一下是不是每次查询的结果都一样

Dim dr1 As DataRow = drs(0)

msgbox(dr1("已进货数量"))

msgbox(dr1("已退货数量"))

msgbox(dr1("已销售数量"))

dr1("柜台余货数量") = dr1("已进货数量") - dr1("已退货数量") - dr1("已销售数量")

dr1("柜台余货金重") = dr1("已进货金重") - dr1("已退货金重") - dr1("已销售金重")

dr1("柜台余货标价") = dr1("已进货标价") - dr1("已退货标价") - dr1("已销售标价")

此主题相关图片如下：qq浏览器截图20220719174304.png

此主题相关图片如下：qq浏览器截图20220719174409.png

此主题相关图片如下：qq浏览器截图20220719174426.png

查询一下数就变了，12行只有4行数是对的

Dim drs As list(Of DataRow) = dt.Select("对账品名='" & s & "' and 店名='" & e.PostValues("店名") & "'", "对账品名")

可以了，这里错了，改成年，月就好了

主题：?水不准