请教老师 下面代码写在 timetick，想实现，只要项目信息跟单表其中一行的结束逻辑列勾选，图片就显示绿色，下面代码没有作用

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

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

狐爸，批评的是，零零散散的使用狐表，有时候脑袋会很乱，学习基本的知识不牢靠，今年才能识读大部分代码，消化起来还是有一知半解的情况。

谢谢狐爸的批评！！！！