Dim tb As Table = Tables(e.Form.Name & "_Table1")
For Ri As Integer = tb.Rows.Count -1 To 0 Step -1 If tb.Rows(Ri)("i") = "+" Then MessageBox.Show(tb.Rows(Ri)("名称"))
tb.position = ri e.Form.Controls("but+").performclick End IfNext