主题：如何即时在状态栏中显示数据

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

static id As String =  ""

改成

static id As Integer = -1

1、你启动timetick事件了没有

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

2、做个例子发上来测试