Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据源手动合并问题


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

主题：数据源手动合并问题
帅哥哟，离线，有人找我吗？
ycs5801
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：942 积分：6803 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2021/8/12 10:56:00 [只看该作者]

老师，这种合并，第一次会正常合并上去，但是第二次我再合并的时候，原数据表中已经有对应的编号了，如果再上传的话是直接覆盖，还是会因为主键相同而报错？

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


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/12 10:59:00 [只看该作者]

改为后台查询：http://www.foxtable.com/webhelp/topics/2911.htm

每一次合并后都保存数据
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：942 积分：6803 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2021/8/12 11:21:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt

老师，不是太理解你说的，能不能帮忙改下，谢谢了。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/12 11:48:00 [只看该作者]

……
    If dt.Find("sureyid= '" & dr("sureyid") & "'") Is Nothing Then  'msgbox(dr("sureyid"))
        Dim nr As DataRow = dt.AddNew()
        For Each dc As DataCol In DataTables("主表").DataCols
            nr(dc.name) = dr(dc.name)
        Next
        dt.save
        For Each dr2 As DataRow In DataTables("操作表").Select("sureyid= '" & dr("sureyid") & "'")
            ''msgbox(dr2("sureyidtimes"))
Dim nr2 As DataRow =dt2.sqlfind("sureyid= '" & dr("sureyid") & "'")
if nr2 is nothing then
            nr2 = dt2.AddNew()
            For Each dc2 As DataCol In DataTables("操作表").DataCols
                nr2(dc2.name) = dr2(dc2.name)
            Next
            dt2.save
            For Each dr3 As DataRow In DataTables("压舱水").Select("sureyidtimes= '" & dr2("sureyidtimes") & "'")
                Dim nr3 As DataRow = dt3.AddNew()
                For Each dc3 As DataCol In DataTables("压舱水").DataCols
                    nr3(dc3.name) = dr3(dc3.name)
                Next
            Next
            dt3.save
            For Each dr4 As DataRow In DataTables("淡水").Select("sureyidtimes= '" & dr2("sureyidtimes") & "'")
                Dim nr4 As DataRow = dt4.AddNew()
                For Each dc4 As DataCol In DataTables("淡水").DataCols
                    nr4(dc4.name) = dr4(dc4.name)
                Next
            Next
            dt4.save
end if
        Next

    End If
Next
Msgbox("上传结束!")
 回到顶部
总数 24 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询