主题：timetick的变化问题

1、楼主的代码有点不堪入目啊，根本不像已经用了4年的用户,正常的代码应该是：

Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox2")
Dim r As DataRow = DataTables("项目信息跟单").current
If r IsNot nohing Then
    If  r("结束") = False Then
        pbx.ImageFile = "红色.ico" '显示图片
    ElseIf  r("结束") = True Then
        pbx.ImageFile= "绿色.ico" '显示图片
    End If
End If

这就是一直让别人写代码，从不学习，也从不去消化别人帮你写的代码的结果。

2、你的方法是不恰当的，正确的方法是：

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