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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表的转换

共有12440人关注过本帖树形打印复制链接主题：表的转换

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

表的转换

Post By：2011/7/4 0:04:00 [只看该作者]

在EXCEL表窗口,将上表数据转化为下表数据,当重新转换时,我只希望更新"用量"数据,型号规格原地不动,更不要重复新增

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用料exce转换.table

hhbb

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

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/7/4 6:37:00 [只看该作者]

BOM 作查询表?

Dim Ls() As String ={"导体","绝缘","耐火","绝缘","填充","包带","铜带","铜丝","内护层","钢带","护套"}

Dim s,t As String

For Each t In Ls

s+=" union all Select 型号,规格,'" & t & "' as 材料," & t & " As 用量 from {EXCEL} where " & t & " <> 0"

DataTables("BOM").Fill(s.Substring(11),True)

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2011/7/4 7:51:00 [只看该作者]

以下是引用hhbb在2011-7-4 6:37:00的发言：

BOM 作查询表?

Dim Ls() As String ={"导体","绝缘","耐火","绝缘","填充","包带","铜带","铜丝","内护层","钢带","护套"}

Dim s,t As String

For Each t In Ls

s+=" union all Select 型号,规格,'" & t & "' as 材料," & t & " As 用量 from {EXCEL} where " & t & " <> 0"

DataTables("BOM").Fill(s.Substring(11),True)

不是这个意思.不要重复新增是说不要对已有的型号规格转换时再增加记录.在上面的示例中以VV1.5为例,去掉"标记"的"√",修改导体和绝缘数据,按[转换]按钮,在下表新增了型号和规格重复的数据,我不希望这样,我希望在已有的VV1.5数据行中自动修改导体和绝缘数据.

hhbb

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

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/7/4 7:59:00 [只看该作者]

不明,到底是BOM转换成Excel?还是Excel转换成BOM?

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2011/7/4 8:04:00 [只看该作者]

将EXCEL表(窗口上表)转换成BOM表(窗口下表)

狐狸爸爸

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

加好友

发短信

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

Post By：2011/7/4 8:08:00 [只看该作者]

http://www.datasoft.com.cn/dispbbs.asp?boardid=2&id=9255

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2011/7/4 8:27:00 [只看该作者]

窗口示例中已经可以转换(看按钮代码),我的问题是转换后在原表修改数据后再次转换出现了重复数据

hhbb

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

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/7/4 8:30:00 [只看该作者]

那BOM根本没存在的必要!

Dim Ls() As String ={"导体","绝缘","耐火","绝缘","填充","包带","铜带","铜丝","内护层","钢带","护套"}

Dim s,t As String

For Each t In Ls

s+=" union all Select [_Identify],型号,规格,'" & t & "'as 材料," & t & " As 用量 from {EXCEL} where " & t & " <> 0"

Tables("窗口4_Table2").Fill(s.Substring(11),True)

Tables("窗口4_Table2").sort = "_Identify"

狐狸爸爸

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

加好友

发短信

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

Post By：2011/7/4 8:35:00 [只看该作者]

你可以清除原来的数据啊：

DataTables("BOM").DataRows.Clear

[此贴子已经被作者于2011-7-4 8:39:28编辑过]

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2011/7/4 8:50:00 [只看该作者]

我不想清除BOM表的所有数据,只想清除要修改的产品(去"√"的)因为这个表的数据很多,修改也频繁.

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

总数 17 1 2 下一页

主题：表的转换