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