以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口按键的标题可否动态显示？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15965)
--  作者：pc005637
--  发布时间：2012/1/21 11:16:00
--  窗口按键的标题可否动态显示？

有数据表中有一列：列名"锁定"，取值为"未锁定"和"已锁定"。

建立一个窗口，一个按键，作用为切换"锁定"列的状态。

能否实现以下效果：

点击一下，可以在"已锁定"和"未锁定"之间切换，而且按键的标题也可以动态显示出"已锁定"和"未锁定"的字样，甚至显示不同的颜色。

 

谢谢指点。
--  作者：don
--  发布时间：2012/1/21 12:03:00
--  
Dim cl as Col = Tables("表名").Cols("锁定")
Dim bn as Boolean =cl .AllowEdit
e.sender.text = iif(e.sender.text ="未锁定","已锁定","未锁定")
e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)
cl.AllowEdit = Not bn
--  作者：程兴刚
--  发布时间：2012/1/21 12:07:00
--  

CurrentTable.Current("锁定") ＝ not CurrentTable.Current("锁定")

if CurrentTable.Current("锁定") ＝ true

    e.Form.Controls("按钮").text ＝ "解除锁定"

else

   e.Form.Controls("按钮").text ＝ "锁定"

end if

 
--  作者：pc005637
--  发布时间：2012/1/21 12:25:00
--  回复：（程兴刚）CurrentTable.Current("锁定") ＝ no...
弱弱地问一下，上面的代码写在哪个事件里面？图片点击可在新窗口打开查看
--  作者：程兴刚
--  发布时间：2012/1/21 13:46:00
--  

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.table
--  作者：易服
--  发布时间：2012/1/21 22:25:00
--  
以下是引用don在2012-1-21 12:03:00的发言：
Dim cl as Col = Tables("表名").Cols("锁定")
Dim bn as Boolean =cl .AllowEdit
e.sender.text = iif(e.sender.text ="未锁定","已锁定","未锁定")
e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)
cl.AllowEdit = Not bn

按钮虽可切换包括颜色但并未锁定/解锁

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:一键双用.table

方法三

Dim chk As WinForm.CheckBox
chk = Forms("窗口1").Controls("CheckBox1")
If chk.Checked = True Then
    chk.text= "锁定"
    CurrentTable.Current("锁定") = False
End If

If chk.Checked = False Then
    chk.text= "解锁"
    CurrentTable.Current("锁定") = True
End If

[此贴子已经被作者于2012-1-21 22:30:19编辑过]
--  作者：程兴刚
--  发布时间：2012/1/22 9:17:00
--  

再完善一下：

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.table
--  作者：易服
--  发布时间：2012/1/22 18:58:00
--  

这个较简单一个按钮就行，能满足楼主要求

 

CurrentTable.Current("锁定") = not CurrentTable.Current("锁定")
If CurrentTable.Current("锁定") = False
    e.Form.Controls("Button1").text = "解除锁定"
    e.sender.text = iif(e.sender.text ="解除锁定","锁定","解除锁定")
    e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)
Else
    e.Form.Controls("Button1").text = "锁定"
    e.sender.text = iif(e.sender.text ="锁定","解除锁定","锁定")
    e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)
End If