- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163021)
-- 发布时间：2021/4/21 9:53:00
-- 请教
以下代码出现死循环，请教各位老师 问题出在哪
Dim t1 As Table = Tables("库存表")
Dim a1 As Integer
For a1= 0 To t1.Rows.count-1
DIM sum AS Integer
DIM mj AS Integer = t1.Rows(a1)("码级")
If mj > 1 then
Do while t1.Rows(a1)> mj-1
sum=sum + t1.Rows(a1)("库存")
a1=a1-1
LOOP
t1.Rows(a1)("库存")=sum
End if
next
库存表格式如下：
码级
品名
库存
1
水果
1400
2
西瓜
100
2
苹果
500
3
红富士苹果
200
3
红将军苹果200
3
新红星苹果100
2
香蕉
800
3
天宝香蕉100
3
麻涌香蕉100
3
高州香蕉300
3
澄迈香蕉200
3
南宁香蕉100
1
蔬菜
2
2
3
3
[此贴子已经被作者于2021/4/21 9:56:58编辑过]
-- 发布时间：2021/4/21 10:07:00
--
使用文字描述一下要做什么功能？
-- 发布时间：2021/4/21 10:13:00
--
根据码级汇总，水果的库存=西瓜 苹果 香蕉的库存之和，苹果的库存数= 红富士 红将军 新红星的库存之和，香蕉的库存数= 各种香蕉的的库存之和
[此贴子已经被作者于2021/4/21 10:13:14编辑过]
-- 发布时间：2021/4/21 10:21:00
--
这种级别设计不合理，会导致后期各种计算非常麻烦。建议改为这种可以递归的父子关系：http://www.foxtable.com/webhelp/topics/2416.htm，或者这种类似会计科目的结构：http://www.foxtable.com/webhelp/topics/2502.htm
-- 发布时间：2021/4/21 23:29:00
--
那些更不会啊，
我换个思路，用这样的类名是否用编码好实现库存的汇总：水果的库存=西瓜 苹果 香蕉的库存之和，苹果的库存数= 红富士 红将军 新红星的库存之和，香蕉的库存数= 各种香蕉的的库存之和。
| 品名 | 类名 | 库存 |
| 水果 | 水果 | 1400 |
| 西瓜 | 水果1 | 100 |
| 苹果 | 水果2 | 500 |
| 红富士苹果 | 水果2.1 | 200 |
|
红将军苹果 |
水果2.2 | 200 |
|
新红星苹果 |
水果2.3 | 100 |
| 香蕉 | 水果3 | 800 |
|
天宝香蕉 |
水果3.1 | 100 |
|
麻涌香蕉 |
水果3.2 | 100 |
|
高州香蕉 |
水果3.3 | 300 |
|
澄迈香蕉 |
水果3.4 | 200 |
|
南宁香蕉 |
水果3.5 | 100 |
| 蔬菜 | 蔬菜 |
-- 发布时间：2021/4/22 9:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1 (1).zip |
个人的建议是，应该有一个商品表，在商品表中进行分类，库存表就只存储商品的数量，不涉及分类，如果要做汇总统计应该另外有一个统计表进行统计，也不应该直接在库存表里统计