试了下面的代码
Dim cmd As New SQLCommand
cmd.CommandText = "update {专业录取线} As a,{专业录取线} As b set a.物理组总_减一年低排=b.物理组总_低分排名,a.物理组总_减一年低同 = b.物理组总_低分同位 where a.院校代码=b.院校代码 And a.物理系列=b.物理系列 And a.专业代码=b.专业代码 And b.录取年度 = 2019 and a.院校代码 Is not null"
cmd.ExecuteNonQuery()
cmd.CommandText = "update {专业录取线} As a,{专业录取线} As b set a.物理组总_减二年低排=b.物理组总_低分排名,a.物理组总_减二年低同 = b.物理组总_低分同位 where a.院校代码=b.院校代码 And a.物理系列=b.物理系列 And a.专业代码=b.专业代码 And b.录取年度 = 2018 and a.院校代码 Is not null"
cmd.ExecuteNonQuery()
cmd.CommandText = "update {专业录取线} As a,{专业录取线} As b set a.物理组总_减一年低排=b.物理组总_低分排名,a.物理组总_减一年低同 = b.物理组总_低分同位 where a.院校代码=b.院校代码 And a.物理系列=b.物理系列 And a.专业代码=b.专业代码 And b.录取年度 = 2017 and a.院校代码 Is not null"
cmd.ExecuteNonQuery()