主题：动态生成库存表

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:库存明细表.rar

 

附件中有我的库存出入库存明细，麻烦哪个高手指点一 下怎么根据这个表生成动态的库存表。要求按产品名称，所在仓库，和批号计算出库存。多谢！

 

本人比较菜，不知道可以上传项目，请各位多多包涵。请帮忙给个代码，如果能帮忙做个项目，更是感激不尽！

密码：kitty1010  不好意思！

多谢！Bin大哥。

另外，我想再加入三列，我想把相应批号的成本价和金额加上，要怎么弄？

BIN，我比较过两个表的Select 的语句是一样的，为什么一个表能多显示两列呢？请说明一下，我再研究一下。多谢！

多谢BIN的指教，我自己试着加了以下代码：请帮忙看一下哪里有问题，怎么老是不行啊？

我是在Afterload 里自己加了两行，代码如下：

Tables("库存_Table1").DataTable.DataCols.Add("成本价",Gettype(Single))
Tables("库存_Table1").DataTable.DataCols.Add("piao面价",Gettype(Single))
Tables("库存_Table1").DataTable.DataCols.Add("库存金额",Gettype(Single))
For Each r As Row In Tables("库存_Table1").Rows
Dim dr  As  DataRow
 With DataTables("订单明细表")
     dr = .Find("产品名称='" & r("产品名称") & "' And 产品批号='"& r("产品批号") & "'" )   
     End With

    r("成本价")=dr("产品成本价")
    r("piao面价")=dr("产品piao面价")
If r("成本价")="" Then
r("库存金额")= r("piao面价")* r("库存")
Else

r("库存金额")= r("成本价")* r("库存")
End If

Next

我第一行不是增加了“成本列”了吗

BIN  请看附件例子。密码：kitty1010

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:恒滔erp.table

 

库存窗口的 AFTERLOAD 事件。

 

多谢！正在努力学习中

 

 

我今天又改了代码，加上了判断，代码如下：

Tables("库存_Table1").DataTable.DataCols.Add("成本价",Gettype(Single))
Tables("库存_Table1").DataTable.DataCols.Add("piao面价",Gettype(Single))
Tables("库存_Table1").DataTable.DataCols.Add("库存金额",Gettype(Single))
For Each r As Row In Tables("库存_Table1").Rows
Dim dr  As  DataRow
 With DataTables("订单明细表")
     dr = .Find("产品名称='" & r("产品名称") & "' And 产品批号='"& r("产品批号") & "'" )   
     End With

    r("成本价")=dr("产品成本价")
    r("piao面价")=dr("产品piao面价")
If r("成本价") IsNot Nothing Then

If r("成本价")="" Then r("库存金额")=r("piao面价")*("库存数量")
Else r("库存金额")=r("成本价")*("库存数量")
End If
 
Next

 

怎么还是不行啊！

错误提示：
此主题相关图片如下：o1_c9ikro@uod}hn6_tw645.jpg