以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117911)

--  作者:小骨头ror
--  发布时间:2018/4/20 18:05:00
--  【求助】
点击结束时行会锁定

请问:选择行时若是锁定状态则控件标题会显示成“恢复”
    行不锁定则控件标题会显示成“结束”

这该怎么写啊  亲爱的老师们

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180420180032.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/4/20 18:05:48编辑过]

--  作者:有点甜
--  发布时间:2018/4/20 18:22:00
--  

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

End If


--  作者:小骨头ror
--  发布时间:2018/4/24 12:13:00
--  
谢谢老师 搞定了