动态生成库存表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态生成库存表

共有6410人关注过本帖树形打印复制链接主题：动态生成库存表

Bin

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/11 15:57:00 [只看该作者]

Tables("库存_Table1") 你这里得有成本价列才可以啊.

ap9709130

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：11456 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2013/12/11 17:11:00 [只看该作者]

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

Bin

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/11 17:13:00 [只看该作者]

你报的到底是什么错,增加了这个列,是不会自己冒出数据来的. 最好就做个例子发上来.

另外建议你先静下心来看一下帮助

图片点击可在新窗口打开查看

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

ap9709130

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：11456 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2013/12/11 17:32:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:恒滔erp.table

库存窗口的 AFTERLOAD 事件。

多谢！正在努力学习中

狐狸爸爸

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/12/11 17:47:00 [只看该作者]

楼主，您的问题和这个帖子是同一个原因：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=43621

缺少判断，我已经在那个帖子回复了，就不重复了。

ap9709130

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：11456 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2013/12/14 13:51:00 [只看该作者]

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

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

怎么还是不行啊！