主题：动态生成库存表

 

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

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

 

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

 

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

密码呢?

密码：kitty1010  不好意思！

.

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

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

多谢！Bin大哥。

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

.

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

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

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

在窗口AlterLoad事件

多谢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