[浏览完整版]
标题：[求助]表属性复制到另一张表里同一名称列问题
1楼
tygzjsl 发表于：2024/5/30 16:04:00
此主题相关图片如下：1.jpg
双击第一个专业，左侧表中院校名称、批次、专业代码和专业名称分别复制到右侧表同名称列内，然后选第二个专业，这次只是专业代码和名称复制至第二专业内，依次复制。再然后选择第二所大学，同步以上过程。怎么做到，谢谢！
e.cancel=True
Dim r As Row = Tables("填报表").current
If r IsNot Nothing Then
r("院校名称") =e.Row("院校名称")
r("批次") =e.Row("批次")
End If
这个代码怎么是随机复制到表中，而不是从上到下次复制。、
非常感谢！
[此贴子已经被作者于2024/5/30 16:09:44编辑过]
2楼
有点蓝 发表于：2024/5/30 16:11:00e.cancel=True
Dim r As Row = Tables("填报表").current
If r IsNot Nothing Then
r("院校名称") =e.Row("院校名称")
r("批次") =e.Row("批次")
if r.isnull("第一专业_代码") then
r("第一专业_代码") =e.Row("代码")r("第一专业_专业名称") =e.Row("专业名称")
elseif r.isnull("第二专业_代码") then
r("第二专业_代码") =e.Row("代码")r("第二专业_专业名称") =e.Row("专业名称")
elseif.....
……
end if
End If
3楼
tygzjsl 发表于：2024/5/30 16:20:00这么快，谢谢老师，出了这个问题
此主题相关图片如下：3.jpg
此主题相关图片如下：3.jpg4楼
cd_tdh 发表于：2024/5/30 16:32:00
无语，把不要的代码删除啊elseif.....
……
5楼
有点蓝 发表于：2024/5/30 16:37:00如果还有第三专业，第四专业，参考着自己补完整
6楼
tygzjsl 发表于：2024/5/30 16:42:00你太帅了！！！，可是点第二个专业，只是替换了第一个，想复制第二个专业里，我是小白，帮帮我
7楼
tygzjsl 发表于：2024/5/30 16:48:00你好老师，有的大学最多六个专业，有的大学可能不到六个，我想要的是依次从上到下，第一所大学复制一到六专业后。然后再复制第二所大学，依次复制，谢谢老师！！！
8楼
有点蓝 发表于：2024/5/30 16:59:00以下是引用tygzjsl在2024/5/30 16:42:00的发言：
你太帅了！！！，可是点第二个专业，只是替换了第一个，想复制第二个专业里，我是小白，帮帮我
左表是不是没有专业代码？2楼的编码是判断专业代码的，如果第一专业_代码为空就填入第一专业，第二专业_代码为空就填入第二张专业，以此类推，所以如果第一专业_代码已经填入内容，再双击是不可能会再填入第一个的。
你太帅了！！！，可是点第二个专业，只是替换了第一个，想复制第二个专业里，我是小白，帮帮我
9楼
有点蓝 发表于：2024/5/30 17:00:00以下是引用tygzjsl在2024/5/30 16:48:00的发言：
你好老师，有的大学最多六个专业，有的大学可能不到六个，我想要的是依次从上到下，第一所大学复制一到六专业后。然后再复制第二所大学，依次复制，谢谢老师！！！
选择右表第一行，复制完六个专业后，再选择右表第二行，继续双击左表复制即可，以此类推
你好老师，有的大学最多六个专业，有的大学可能不到六个，我想要的是依次从上到下，第一所大学复制一到六专业后。然后再复制第二所大学，依次复制，谢谢老师！！！
10楼
tygzjsl 发表于：2024/5/30 17:26:00老师你真帅，真厉害，左表是没有专业代码，以后添加。