- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态生成库存表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43574)
-- 发布时间：2013/12/10 17:20:00
-- 动态生成库存表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:库存明细表.rar |
附件中有我的库存出入库存明细，麻烦哪个高手指点一 下怎么根据这个表生成动态的库存表。要求按产品名称，所在仓库，和批号计算出库存。多谢！
本人比较菜，不知道可以上传项目，请各位多多包涵。请帮忙给个代码，如果能帮忙做个项目，更是感激不尽！
-- 发布时间：2013/12/10 17:26:00
--
密码呢?
-- 发布时间：2013/12/10 17:30:00
--
密码：kitty1010 不好意思！
-- 发布时间：2013/12/10 17:51:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:库存明细表.table |
-- 发布时间：2013/12/11 9:28:00
--
多谢！Bin大哥。
-- 发布时间：2013/12/11 9:32:00
--
另外，我想再加入三列，我想把相应批号的成本价和金额加上，要怎么弄？
-- 发布时间：2013/12/11 9:53:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:库存明细表.table |
-- 发布时间：2013/12/11 11:48:00
--
BIN，我比较过两个表的Select 的语句是一样的，为什么一个表能多显示两列呢？请说明一下，我再研究一下。多谢！
-- 发布时间：2013/12/11 11:49:00
--
在窗口AlterLoad事件
-- 发布时间：2013/12/11 15:49:00
--
多谢BIN的指教，我自己试着加了以下代码：请帮忙看一下哪里有问题，怎么老是不行啊？
我是在Afterload 里自己加了两行，代码如下：
Tables("库存_Table1").DataTable.DataCols.Add("成本价",Gettype(Single))
Tables("库存_Table1").DataTable.DataCols.Add("票面价",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("票面价")=dr("产品票面价")
If r("成本价")="" Then
r("库存金额")= r("票面价")* r("库存")
Else
r("库存金额")= r("成本价")* r("库存")
End If
Next
