以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]控件“按钮”,单击,打开窗口“表A”, 当“表A”数据有变动时,该控件“按钮”的颜色改变,这个应该怎么弄???  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95957)

--  作者:fengwenliuyan
--  发布时间:2017/2/9 15:45:00
--  [求助]控件“按钮”,单击,打开窗口“表A”, 当“表A”数据有变动时,该控件“按钮”的颜色改变,这个应该怎么弄???
 控件“按钮”,单击,打开窗口“表A”,
当“表A”数据有变动时,该控件“按钮”的颜色改变,这个应该怎么弄??? 

--  作者:有点色
--  发布时间:2017/2/9 15:48:00
--  

 可以做一个计时器

 

Dim btn As WinForm.Button = Forms("窗口1").controls("Button1")
If DataTables("表A").HasChanges Then
    btn.BackColor = Color.red
Else
    btn.BackColor = Color.blue
End If

 

http://www.foxtable.com/webhelp/scr/0657.htm

 


--  作者:fengwenliuyan
--  发布时间:2017/2/9 16:23:00
--  [求助]然后呢?
当用户其它用户,如“开单员”点击按钮后,按钮颜色变回蓝色怎么弄?
--  作者:有点色
--  发布时间:2017/2/9 16:26:00
--  

换一种思路,你可以在表A的DataColChanged事件写代码控制

 

Dim btn As WinForm.Button = Forms("窗口1").controls("Button1")
btn.BackColor = Color.red

 

点击后,再控制

 

Dim btn As WinForm.Button = Forms("窗口1").controls("Button1")
btn.BackColor = Color.blue


--  作者:fengwenliuyan
--  发布时间:2017/2/9 16:54:00
--  [求助]但是用户“李”更改了"表A"的内容,用户“张”看到的“表A”按钮不见变色啊?
但是用户“李”更改了"表A"的内容,用户“张”看到的“表A”按钮不见变色啊?
--  作者:fengwenliuyan
--  发布时间:2017/2/9 16:56:00
--  我上传项目您帮着看看!
我上传项目您帮
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

着看看!

--  作者:有点色
--  发布时间:2017/2/9 18:36:00
--  
以下是引用fengwenliuyan在2017/2/9 16:54:00的发言:
但是用户“李”更改了"表A"的内容,用户“张”看到的“表A”按钮不见变色啊?

 

这样,你就需要用到OpenQQ交互了。

 

http://www.foxtable.com/webhelp/scr/3006.htm