Foxtable(狐表)用户栏目专家坐堂 → [求助]两个表中数据同步到一个表中


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

主题:[求助]两个表中数据同步到一个表中

帅哥哟,离线,有人找我吗?
飞天数字网络
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:127 威望:0 精华:0 注册:2021/1/16 11:17:00
  发帖心情 Post By:2021/1/27 14:59:00 [只看该作者]

做了个简单的本地数据源  和我要求的功能一样   蓝哥 帮我看下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cs_202101271452.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:65366 积分:331370 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/27 15:16:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cs.zip


 回到顶部
帅哥哟,离线,有人找我吗?
飞天数字网络
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:127 威望:0 精华:0 注册:2021/1/16 11:17:00
  发帖心情 Post By:2021/1/27 17:49:00 [只看该作者]

蓝哥  数据同步过来  怎么让数据在一行内显示  而不是填一个表 就新建一行
 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210120114231.png
图片点击可在新窗口打开查看

第二个表 用到的代码如下:

Select Case e.DataCol.name
    Case "ImplementationProjectCode"
        Dim dr As DataRow = DataTables("ProjectSummary").Find("Implementati")
        If dr Is Nothing Then
            dr = DataTables("ProjectSummary").AddNew()
            dr("ImplementationProjectCode") = e.DataRow("ImplementationProjectCode")
            dr("ImplementationProjectsName") = e.DataRow("ImplementationProjectsName")
            dr("ImplementationImplementationUnit") = e.DataRow("ImplementationImplementationUnit")
        Else
            dr("ImplementationProjectCode") = e.DataRow("ImplementationProjectCode")
        End If
    Case "ImplementationProjectsName","ImplementationImplementationUnit"
        Dim dr As DataRow = DataTables("ProjectSummary").Find("Implementati")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
[此贴子已经被作者于2021/1/27 17:50:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:65366 积分:331370 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/28 8:39:00 [只看该作者]

3个表的编号必须一致,不然无关关联到一行里。通过编号查询数据

 回到顶部
总数 14 上一页 1 2