- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有两张表，如何将一个表的某列数据导入另一个表中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47632)
-- 发布时间：2014/3/13 19:46:00
-- 有两张表，如何将一个表的某列数据导入另一个表中
各位大侠好，小弟有个问题：
在foxtable的一个项目里有两张表，我想将第一个表中某一列的数据自动导入到第二个表中的某一列中，在这个过程中，在“姓名”、“手机”、“QQ”都对应的情况下，第一个表的成绩数据才会被导入第二个表相应的行列中。如下图
表一
姓名
身高
学校
手机
居住地
QQ 成绩
罗明
165
华工
18920536542
广州
123456
B
李广
155
未知
16523036542
孙仁
170
重大
13352563200
中山
654321
A
招任
180
北大
85623036542
***
表二
姓名
职位
性别
年龄
手机
QQ
成绩
罗欣
老头
男
21
52223036542
56756343
罗明
小人
女
20
18920536542
123456
邓敏
君子
男
55
56225
754354354
高效
大人
男
41
995952
87852354
孙仁
老板
女
30
13352563200
654321
***
-- 发布时间：2014/3/13 19:48:00
--
乱掉了，表头是这样的：
表一：姓名 身高 学校 手机 居住地 QQ 成绩
表二：姓名
职位
性别
年龄
手机
QQ
成绩
-- 发布时间：2014/3/13 19:49:00
--
还是乱了：
表一：姓名 身高 学校 手机 居住地 QQ 成绩
表一：姓名 职位 性别 年龄 手机 QQ 成绩
-- 发布时间：2014/3/14 8:46:00
--
参考帮助http://www.foxtable.com/help/topics/1533.htm
利用FIND查找是否有对应行http://www.foxtable.com/help/topics/0396.htm
还是不懂就上例子.
-- 发布时间：2014/3/14 10:20:00
--
for each dr1 as datarow in datatables("表1").Datarow
Dim dr2 as datarow = datatables("表2").Find("姓名 = \'" & dr1("姓名") & “’ and 手机 = \'”& dr1("手机") & “‘ and qq = \'” & dr1(“qq”) & “’” )
if dr2 is not nothing then
dr2("其他1") = dr1("其他1")
dr2("其他2") = dr1("其他2")
dr2("其他3") = dr1("其他3")
end if
next
-- 发布时间：2014/3/14 19:05:00
--
狐狸爸爸，参考你这个代码，出现附件中的错误，怎么解决？
for each dr1 as datarow in datatables("表1").Datarow Dim dr2 as datarow = datatables("表2").Find("姓名 = \'" & dr1("姓名") & “’ and 手机 = \'”& dr1("手机") & “‘ and qq = \'” & dr1(“qq”) & “’” ) if dr2 is not nothing then dr2("其他1") = dr1("其他1") end if next |
-- 发布时间：2014/3/14 19:34:00
--
for each dr1 as datarow in datatables("表1").Datarows
-- 发布时间：2014/3/14 20:10:00
--
对于只有小小基础的我来说，这段编码总是磕磕碰碰，有问题。
此主题相关图片如下：未命名1.jpg
-- 发布时间：2014/3/14 20:28:00
--
If dr2 IsNot Nothing Then
-- 发布时间：2014/3/14 21:04:00
--
谢谢九哥