click或者currentChanged事件，写代码
Dim cr As Row = e.Table.Current
If cr IsNot Nothing AndAlso Forms("窗口1").Opened Then
If cr.Locked then
Forms("窗口1").Controls("Button1").Text = "恢复"
Else
Forms("窗口1").Controls("Button1").Text = "结束"
End If
加好友 
发短信
Post By：2018/4/20 18:22:00 [显示全部帖子]
