Foxtable(狐表)用户栏目专家坐堂 → 在数据替换中如何计算替换成功记录数?


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

主题:在数据替换中如何计算替换成功记录数?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107673 积分:547686 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/14 14:00:00 [显示全部帖子]

For Each dr1 As DataRow In DataTables("学生信息导入样表").DataRows
            For y=0 To lms.count-1
                i=i + DataTables("xszxztb").SQLReplaceFor(lms(y),dr1(nms(y)),"sfzhm= '" & dr1("身份证号码") & "'")
            Next
        Next

SQLReplaceFor会返回一个整数,表示合计有多少行的值被替换了。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107673 积分:547686 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/14 14:41:00 [显示全部帖子]

For Each dr1 As DataRow In DataTables("学生信息导入样表").DataRows
            For y=0 To lms.count-1
                i=i + DataTables("xszxztb").SQLReplaceFor(lms(y),dr1(nms(y)),"sfzhm= '" & dr1("身份证号码") & "'")
            Next
dr1("是否替换成功")=true 
        Next

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107673 积分:547686 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/15 16:17:00 [显示全部帖子]

怎么样才算是替换成功?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107673 积分:547686 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/15 16:48:00 [显示全部帖子]

比对两个表的身份证号码的代码在哪里?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107673 积分:547686 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/15 16:52:00 [显示全部帖子]

在这个意思?
DataTables("学生信息导入样表").StopRedraw
Dim i ,y,k As Integer = 0
Dim dr As DataRow
For Each dr1 As DataRow In DataTables("学生信息导入样表").DataRows
    k=0
    For y=0 To lms.count-1
        k = DataTables("xszxztb").SQLReplaceFor(lms(y),dr1(nms(y)),"sfzhm= '" & dr1("身份证号码") & "'")
    Next
    dr1("是否替换成功") = k > 0
    i=i+k
    
Next

 回到顶部