主题：设计上一行按钮

AfterOpenProject

 

vars("点击顺序") = new List(Of integer)

vars("当前") = 0

 

currentChanged事件

 

vars("点击顺序").add(e.Table.Current.Index)
vars("当前") = vars("点击顺序").count-1

 

上一行

 

Systemready = False
vars("当前") -= 1
Tables("表A").Position = vars("点击顺序")(vars("当前"))
Systemready = True