- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]库存 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87885)
-- 发布时间：2016/7/21 21:49:00
-- [求助]库存
老师好
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:库存.txt |
此主题相关图片如下：图像 2.png
-- 发布时间：2016/7/21 22:00:00
--
贴出你入库明细表的datacolchanged事件代码。
-- 发布时间：2016/7/21 23:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:代码.txt |
-- 发布时间：2016/7/21 23:34:00
--
入库明细表啊，你明明重置列 入库单编号明细 了。
-- 发布时间：2016/7/21 23:38:00
--
老师不能理解你的意思。
-- 发布时间：2016/7/21 23:40:00
--
入库明细表 的 DataColChanged事件啊。
-- 发布时间：2016/7/21 23:43:00
--
代码有错吗？怎样纠正。老师谢谢你了。
-- 发布时间：2016/7/22 8:32:00
--
If e.DataCol.Name = "出库_数量" Then
DataTables("入库明细").DataCols("入库单编号明细").RaiseDataColChanged(filter)
Else
就这样几句代码，没有办法判断对或错。既然代码用到RaiseDataColChanged，问题可能在"入库明细"的 DataColChanged事件
-- 发布时间：2016/7/22 8:48:00
--
老师，下面是入库明细表的代码。
Select Case e.DataCol.Name
Case "入库单编号明细","入库批次号","入库_数量"
Dim filter As String = "入库批次号 = \'" & e.DataRow("入库单编号明细") & "\' and 批次号 = \'" & e.DataRow("批次号") & "\'"
e.DataRow("库存") = e.DataRow("入库_数量") - DataTables("出库明细").Compute("sum(出库_数量)", filter)
End Select
-- 发布时间：2016/7/22 8:58:00
--
Dim ck As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "出库_售价","出库_数量"
ck("出库_价税合计") = ck("出库_数量") * ck("出库_售价") /1.17 * 1.03
\'----------------------------------------------------------------------------------------------
Dim rk = DataTables("入库明细").Find("入库单编号明细 = \'" & e.DataRow("入库批次号") & "\'")
If rk IsNot Nothing Then
Dim sum = e.DataTable.compute("sum(出库_数量)", "入库批次号 = \'" & e.DataRow("入库批次号") & "\' and _Identify <= " & e.DataRow("_Identify"))
ck("最后库存") = rk("入库_数量") - sum
End If
Case "出库_价税合计","出库_税率"
ck("出库_金额") = ck("出库_价税合计") / ck("出库_税率")
Case "出库_价税合计","出库_金额"
ck("出库_税金") = ck("出库_价税合计") - ck("出库_金额")
End Select