主题：[求助]根据记录中状态不同，如何设置不同的动态图？

 timertick事件

 

static idx As Integer = 0
Dim r As Row = Tables("表a").current
If r IsNot Nothing Then
    If r("第一列") = "" Then
        If idx = 0 Then
            e.Form.Controls("PictureBox1").image = getimage("d:\test.ico")
            idx = 1
        Else
            e.Form.Controls("PictureBox1").image = Nothing
            idx = 0
        End If
    End If
End If

 

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

 

e.Form.Controls("PictureBox1").image = getimage(ProjectPath & "Images/test.ico")