Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【BIN和Don俩种方法解决】高速合并升级功能的实现


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

主题：【BIN和Don俩种方法解决】高速合并升级功能的实现
帅哥哟，离线，有人找我吗？
jxkqf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		【BIN和Don俩种方法解决】高速合并升级功能的实现  发帖心情 Post By：2013/5/3 7:08:00 [显示全部帖子]

在高速合并中，我希望将主键相同的纪录在更新前，把更新前后的数据对比显示出来，用户确认以后再进行更新。 请教高手，这个常用功能如何实现？
[此贴子已经被作者于2013-5-7 21:28:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/3 10:00:00 [显示全部帖子]

有哪位高手能代写一下代码？我写了三天都没有成功。
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/3 10:19:00 [显示全部帖子]

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


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/3 14:35:00 [显示全部帖子]

以下是引用Bin在2013-5-3 10:32:00的发言：
参考这里做吧http://www.foxtable.com/help/topics/2334.htm

无法实现我希望的功能

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


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/3 15:47:00 [显示全部帖子]

能力有限，高手赐教！
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/3 17:55:00 [显示全部帖子]

以下是引用Bin在2013-5-3 15:59:00的发言：
把例子发出来,帮你完善一下.

麻烦BIN老师看一下。说一下思路和关键代码。

万分感谢。！！！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:数据更新比对.zip
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/7 11:00:00 [显示全部帖子]

例子已发，请帮忙解决一下，万谢！
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/7 17:09:00 [显示全部帖子]

非常感谢BIN.成功了！！！狂喜！

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


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/5/7 21:27:00 [显示全部帖子]

以下是引用don在2013-5-7 19:06:00的发言：
SQL的,辛辛苦苦写的,就贴出吧:

Dim SQL,s1,s2 As String
Dim ns As String() = {"人员工资表","数据导入"}
Dim nms As String() = {"职务工资","级别工资","工龄工资"}
s2 = "Select 身份证号,姓名,'@' As 变动项目,@ As 变动前 FROM {#} a WHERE NOT EXISTS(Select 身份证号,姓名,@ FROM {^} b WHERE a.身份证号 =b.身份证号 And a.@= b.@)"
s1 =" Union all Select a.身份证号,a.姓名,a.变动项目,变动前,变动后 From(" & s2.Replace("#",ns(0)).Replace("^",ns(1)) & ") a Inner Join ("
s1+ = s2.Replace("#",ns(1)).Replace("^",ns(0)).Replace("变动前","变动后")  & ") b On a.身份证号 = b.身份证号"

For Each s2 In nms
    SQL+ = s1.replace("@",s2)
Next
SQL =SQL.substring(11)
Output.Show(SQL)
各有千秋，但sql法理解难度大点
[此贴子已经被作者于2013-5-7 19:06:11编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询