以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]将一张表上的一列数据拷贝到另一张表相对应的行上 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141901)
|
-- 作者:kai
-- 发布时间:2019/10/14 7:37:00
-- [求助]将一张表上的一列数据拷贝到另一张表相对应的行上
此主题相关图片如下:批注 2019-10-14 073254.jpg
此主题相关图片如下:批注 2019-10-14 0732 54.jpg
怎么将电子档号数据表 中 档号列 的数据信息拷贝到 电子纸质文件信息对比表 的电子档号数据列中,并和 电子纸质文件信息对比表 中的 档号列 的数据信息相对应(相同的列在一行,没有对应的信息往下排)怎么办?求大神指点
|
-- 作者:kai
-- 发布时间:2019/10/14 7:44:00
--
代码怎么写?我不明白
|
-- 作者:有点蓝
-- 发布时间:2019/10/14 9:54:00
--
For Each r As Row In Tables("电子档号").rows Dim dr As DataRow = DataTables("电子纸质文件信息").find("部门=\'" & r("部门") & "\' and 年度=\'" & r("年度") & "\' and ...其它条件自己参考补齐...") If dr IsNot Nothing Then dr("电子档号数据") = r("文件档号") End If Next
|