主题：帮忙解决行的问题？

Dim p1 As Row =  Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 1) '获得最后一行

Dim p2 As Row =Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count -2) '获得最后一行

'Dim p3 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 3) '获得最后一行

'Dim p4 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 4) '获得最后一行

'Dim p5 As Row = Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 5) '获得最后一行

'Dim p6 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 6) '获得最后一行

'Dim p7 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 7) '获得最后一行

'Dim p8 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 8) '获得最后一行

e.Form.Controls("Label1").text = p1("主题")

e.Form.Controls("Label2").text = p2("主题")

'e.Form.Controls("Label3").text = p3("主题")

'e.Form.Controls("Label4").text = p4("主题")

'e.Form.Controls("Label5").text = p5("主题")

'e.Form.Controls("Label6").text = p6("主题")

'e.Form.Controls("Label7").text = p7("主题")

'e.Form.Controls("Label8").text = p8("主题")

这个执行不正确