一个按钮就可以了
Dim r As Row = Tables("表A").Current
If r Is Nothing OrElse r.IsNull("时间") Then Return ""
Dim min As Integer = r("时间").year
If min < 2000 Then min = 2000
Dim nr As DataRow
Dim lst As List(of String) = DataTables("表B").GetValues("年度","项目='" & r("项目") & "'")
For i As Integer = min To Date.Today.AddYears(-1).Year
If lst.Contains(cstr(i)) Then Continue For
nr = DataTables("表B").AddNew()
nr("项目") = r("项目")
nr("年度") = i
nr("内容") = "已核"
Next