此主题相关图片如下:出库登记表.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/201461621342360157.png)
Dim cg As DataRow = e.DataRow
Select Case e.DataCol.name
Case "出库数量","B价","B合","产品名称","产品编号"
Dim filter As String
filter = "产品编号 = '" & cg("产品编号") & " ' And 产品名称 = '" & cg("产品名称") & "'"
Dim pr As DataRow
pr = DataTables("库存明细2014年").find (filter)
If pr IsNot Nothing Then
Dim su As Double = Tables("出库登记表").compute("Sum(出库数量)","[产品编号] = '" & pr ("编号") & "' And [产品名称] = '" & pr("产品名称") & "'")
pr("入库产品已出库数KG") = su
cg("B价")= pr("A价")
cg("厂家")= pr("厂家")
cg("B合") = cg("出库数量") * cg("B价")
End If
End Select
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:库存明细2014年.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/201461621355110790.png)
请老师帮我看看,“出库登记表”动态不到“库存明细2014年”去,不知哪儿不对了。。。