Dim ts As WinForm.Label = e.Form.Controls("提示")
if CurrentTable.Current.Locked = True Then
ts.Text = "锁定"
Else
ts.Text = ""
End if