Foxtable(狐表)用户栏目专家坐堂 → [求助]两个外部表之间的导入,根据条件把一个表的数据全部导入到另一个表中。【图已上传】


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

主题:[求助]两个外部表之间的导入,根据条件把一个表的数据全部导入到另一个表中。【图已上传】

帅哥哟,离线,有人找我吗?
qq34658788
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
[求助]两个外部表之间的导入,根据条件把一个表的数据全部导入到另一个表中。【图已上传】  发帖心情 Post By:2013/4/13 13:48:00 [显示全部帖子]

 

如上图,点导入按钮,把表A的数据,导入到表B中,其中表A和表B都是外部表,而且表A和表B的字段不完全一样。

表A:SELECT ERPNO,PDMNO,NOTE,DTSL FROM A

表B:SELECT ERPNO,PDMNO,CPNAME,SM,TX FROM B

 

请问代码怎么写?谢谢。


图片点击可在新窗口打开查看此主题相关图片如下:psb.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-4-13 14:20:15编辑过]

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


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2013/4/13 13:53:00 [显示全部帖子]

 

能否帮做个这样的首页,悬赏大洋100块?


图片点击可在新窗口打开查看此主题相关图片如下:psb.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-4-13 14:15:20编辑过]

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


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2013/4/13 14:05:00 [显示全部帖子]

以下是引用XYT在2013-4-13 14:00:00的发言:

图片挂了,图片直接上传就可以了,不用搞外链

 

没有直接上传图片的选项啊,打开图片就是连接的形式。


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


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2013/4/13 14:16:00 [显示全部帖子]

以下是引用Bin在2013-4-13 14:08:00的发言:
上图 用添加附近的方式.

搞定了。


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


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2013/4/13 14:30:00 [显示全部帖子]

以下是引用Bin在2013-4-13 14:21:00的发言:
字段不一样的导入参考这里 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=31292

思路决定出路。非常感谢,搞定了,看来还得静下心来,好好看帮助啊。


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


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2013/4/13 14:55:00 [显示全部帖子]

以下是引用Bin在2013-4-13 14:21:00的发言:
字段不一样的导入参考这里 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=31292

如果我要加条件呢,比如说,要导入A表中符合某些条件的记录导入B表中。如何写??


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


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2013/4/13 15:07:00 [显示全部帖子]

以下是引用muhua在2013-4-13 14:56:00的发言:

If dr("年级")="一年级" Then

 

7楼给您的例子里就有这些语法的。

嗯,谢谢,备份下,给后来这用

For Each dr As DataRow In DataTables("学生缴费信息").DataRows
    If dr("年级")="一年级" Then
        Dim dr2 As DataRow = DataTables("学生成绩").AddNew
        dr2("学期")=dr("学期")
        dr2("年级")=dr("年级")
        dr2("班级")=dr("班级")
        dr2("学生编号")=dr("学生编号")
        dr2("学生姓名")=dr("学生姓名")
    End If
Next

 回到顶部