[求助]想做一个生成BOM的小数据库，但不知从何入手 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]想做一个生成BOM的小数据库，但不知从何入手

共有16874人关注过本帖树形打印复制链接主题：[求助]想做一个生成BOM的小数据库，但不知从何入手

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

[求助]想做一个生成BOM的小数据库，但不知从何入手 发帖心情

Post By：2011/4/25 10:00:00 [显示全部帖子]

刚接触FOXTABLE,想为公司技术部做一个生成BOM的小数据库，以帮助公司简化一些流程，但帮助看了几天了，还是不知从哪里下手。

表格如下，所有表的格式都是一样的，现需要将“待机线路”，“带枕校”等功能清单，加入到“基本清单”中，以生成一个最终的客户清单。而加入的过程主要是对“待机线路”等表的“单机量”、“装入位号”、“分工”等进行判定，然后对“基本清单”相应这几项进行更改。至今不知道应该用什么方法来合并和生成最终的客户清单。

此主题相关图片如下：qq3.png

此主题相关图片如下：qq4.png

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

Post By：2011/4/25 11:35:00 [显示全部帖子]

以下是引用blackzhu在2011-4-25 11:04:00的发言：
可能用自动输入等功能或者是用数据填充器可以搞定的吧,他的意思是将多重表拣有用的汇总成一张表导出.

例如“待机线路”第一行，需要在“基本清单”中“装入位号”列包含C567的那一行，然后单机量加上-1，然后“装入位号”中删去C567,得出这一行的结果。然后继续“待机线路”的第二行，是这个意思。

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

Post By：2011/4/25 11:54:00 [显示全部帖子]

用这个SQLGroupTableBuilder语句能行吗？

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

Post By：2011/4/25 16:06:00 [显示全部帖子]

也许上面那两个图大家看得不是太明白，现在我做了个简化模型，大家可能看得明白点

图片点击可在新窗口打开查看此主题相关图片如下：qq5.png

此主题相关图片如下：qq6.png

此主题相关图片如下：qq7.png

例如，基础清单中，B这个材料有两个单机量，分别用在B101和B102这两个位置上，现在更改要求为去掉B102这个位置的B材料并更换为F材料（更改表第1、3行），最终得出如结果图中的结果（B只剩下1个单机用量B101,而F则增加为3个）。

现在这个结果表是我算好后手工输入做出来的，如果让FOXTABLE自己生成这个结果表要如何编写代码？

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

Post By：2011/4/26 9:02:00 [显示全部帖子]

以下是引用mr725在2011-4-25 18:37:00的发言：

感觉你第二张“更改”表是手工录入的，那就在命令窗口中（做个按钮也行）这样试试：

Dim dr As DataRow
for i as integer = 0 to Tables("结果").count-1
    dr = DataTables("更改").Find("材料编码 = '" & Tables("结果").rows(i)("材料编码") & "'")
    dim wh as string = Tables("结果").rows(i)("装入位号")
    if dr isnot nothing

        if dr("单机量") = "-1" then '这是字符型的时候，数字型的不要加引号。。。
            Tables("结果").rows(i)("装入位号") = wh.replace(dr("装入位号,"").trim()
        else
            Tables("结果").rows(i)("装入位号") = wh & " " & dr("装入位号")

end if
end if
next

运行了之后，出现这样的提示

此主题相关图片如下：qq7.png

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

Post By：2011/4/26 11:18:00 [显示全部帖子]

但是加上引号后又出现了这个提示图片点击可在新窗口打开查看

此主题相关图片如下：qq8.png

下一主题 >> << 上一主题

主题：[求助]想做一个生成BOM的小数据库，但不知从何入手