- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ?水不准 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178760)
-- 发布时间：2022/7/19 17:11:00
-- ?水不准
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (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)("已销售标价")
Next
End If
Next
?水不准，然后查询一下柜台余货就变动一下
-- 发布时间：2022/7/19 17:25:00
--
?水不准是啥玩意？
数据的东西哪个不准自己跟踪一下是不是每次查询的结果都一样
Dim dr1 As DataRow = drs(0)
msgbox(dr1("已进货数量"))
msgbox(dr1("已退货数量"))
msgbox(dr1("已销售数量"))
dr1("柜台余货数量") = dr1("已进货数量") - dr1("已退货数量") - dr1("已销售数量")
dr1("柜台余货金重") = dr1("已进货金重") - dr1("已退货金重") - dr1("已销售金重")
dr1("柜台余货标价") = dr1("已进货标价") - dr1("已退货标价") - dr1("已销售标价")
-- 发布时间：2022/7/19 17:47:00
--
此主题相关图片如下：qq浏览器截图20220719174304.png
此主题相关图片如下：qq浏览器截图20220719174409.png
此主题相关图片如下：qq浏览器截图20220719174426.png
查询一下数就变了，12行只有4行数是对的
-- 发布时间：2022/7/19 17:55:00
--
Dim drs As list(Of DataRow) = dt.Select("对账品名=\'" & s & "\' and 店名=\'" & e.PostValues("店名") & "\'", "对账品名")
可以了，这里错了，改成年，月就好了