专家坐堂-如何即时在状态栏中显示数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何即时在状态栏中显示数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131973)

--  作者：ZJZK2018
--  发布时间：2019/3/10 19:38:00
--  如何即时在状态栏中显示数据
1、AfterLoad事件中

If Tables("任务分配").Current IsNot Nothing Then
Dim dr As Row = Tables("任务分配").Current
Dim ztl As String = "投标保证金: " & dr("状态_投标保证金") & ",投标文件: " & dr("状态_投标文件") & ",任务分配: " & dr("状态_任务分配")
e.Form.Strips("状态栏").Items("User").Text = " ★ ★ ★ " & "本项目状态: " & ztl_dr("项目状态") & " ★ ★ ★ " & " " & ztl
End If

2、TimerTick
Dim s As String = e.Form.Strips("状态栏").Items("User").Text
e.Form.Strips("状态栏").Items("User").Text = s.SubString(1,s.Length - 1) & s.SubString(0,1)

上面这段代码当“dr("状态_投标保证金")”的值改变时，状态栏中无法及时更新，如何及时更新？

--  作者：有点甜
--  发布时间：2019/3/10 21:10:00
--

timertick事件

static id As String = ""
If Tables("任务分配").Current IsNot Nothing Then
    Dim dr As Row = Tables("任务分配").Current
    If dr("_Identify") <> id Then
        Dim ztl As String = "投标保证金: " & dr("状态_投标保证金") & ",投标文件: " & dr("状态_投标文件") & ",任务分配: " & dr("状态_任务分配")
        e.Form.Strips("状态栏").Items("User").Text = " ★ ★ ★ " & "本项目状态: " & "" & " ★ ★ ★ " & "    " & ztl
        id = dr("_Identify")
    End If
    Dim s As String = e.Form.Strips("状态栏").Items("User").Text
    e.Form.Strips("状态栏").Items("User").Text = s.SubString(1,s.Length - 1) & s.SubString(0,1)
Else
    e.Form.Strips("状态栏").Items("User").Text = ""
End If

--  作者：ZJZK2018
--  发布时间：2019/3/10 21:41:00
--

此主题相关图片如下：999999.png

--  作者：有点甜
--  发布时间：2019/3/10 21:46:00
--

static id As String = ""

改成

static id As Integer = -1

--  作者：ZJZK2018
--  发布时间：2019/3/10 22:01:00
--
出错是没有了，但未能及时更新数据？

--  作者：有点甜
--  发布时间：2019/3/10 22:56:00
--

1、你启动timetick事件了没有

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

2、做个例子发上来测试