Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]表属性复制到另一张表里同一名称列问题

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:00
e.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
图片点击可在新窗口打开查看
4楼
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
老师你真帅,真厉害,左表是没有专业代码,以后添加。图片点击可在新窗口打开查看
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04297 s, 2 queries.