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


  共有12449人关注过本帖树形打印复制链接

主题：表的转换
帅哥哟，离线，有人找我吗？
实话实说
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		表的转换  发帖心情 Post By：2011/7/4 0:04:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:用料exce转换.table
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"
Next

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

不是这个意思.不要重复新增是说不要对已有的型号规格转换时再增加记录.在上面的示例中以VV1.5为例,去掉"标记"的"√",修改导体和绝缘数据,按[转换]按钮,在下表新增了型号和规格重复的数据,我不希望这样,我希望在已有的VV1.5数据行中自动修改导体和绝缘数据.
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2011/7/4 8:04:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2011/7/4 8:27:00 [显示全部帖子]

窗口示例中已经可以转换(看按钮代码),我的问题是转换后在原表修改数据后再次转换出现了重复数据
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2011/7/4 8:50:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2011/7/4 9:06:00 [显示全部帖子]

在BOM表中删除EXCEL表中去掉"√"的行.好方法,可惜代码还不熟

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2011/7/4 9:25:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-7-4 9:16:00的发言：
全部重新生成算啦，8楼代码效率很高的。

我需要12楼的方法,麻烦帮我写一下删除代码吧
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2011/7/4 10:00:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-7-4 9:48:00的发言：

在Excel表的DataColChanged事件加入代码：

 

 

If e.DataCol.Name = "标记" Then

    If e.DataRow("标记") = False Then

        DataTables("BOM").DeleteFor("型号 = '" & e.DataRow("型号") & "' And 规格 = '" & e.DataRow("规格") & "'")

    End If

End If

谢谢.
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 6 次数据查询