If forms("投标商务审批意见").Opened Then
Dim pbx165 As WinForm.PictureBox = e.Form.Controls("PictureBox24")
Dim lbl165 As WinForm.Label = e.Form.Controls("Label165")
If lbl165 IsNot Nothing Then
Dim Count165 As Double
Count165 = Tables("投标商务审批意见_Table1").DataTable.Compute("Count(项目编号)","执行人 Like '%" & _UserName & "%' and (收阅确认 not Like '%" & _UserName & "%' or 收阅确认 Is null) and 审批流程 Like '%编制程序_编制%'")
If Count165 = 0 Then
pbx165.ImageFile = "GGreen.ico" '显示图片
ElseIf Count165 >= 1 Then
pbx165.ImageFile= "RRed.ico" '显示图片
End If
lbl165.Text = "" & Count165 & ""
End If
End If
加好友 
发短信
Post By：2016/7/13 11:22:00 [显示全部帖子]
