如何实现，下述目的，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'...按钮Click事件代码
Dim r As Row = Tables("单位基本信息录入").Current
if CurrentTable.Current.Locked Then '判断当前行是否锁定
    Return '锁定就终止代码的执行
Else      '为锁定就执行以下代码
    Forms("单位名称目录4").Open()
    e.Cancel = True
    Dim TT As String
    TT = e.Form.Controls("TextBox4").Value
    if TT = "无" OrElse TT = "" then
        r("单位地址") = Nothing
        r("单位负责人") = Nothing
        r("单位名称") = Nothing
    end if
End If

主题：如何实现，下述目的，谢谢