代码改一下
Static i As Integer = 0
e.Form.Controls("Label1").Text = Tables("表A").Rows(i)("标题")
vars(i) = i
i = i + 1
If i >= Tables("表A").Rows.Count Then
i = 0
End If
点击的时候,根据vars(i)的值可以确定是第几行数据,然后你做对应操作。