AFTERLOAD事件的调整问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AFTERLOAD事件的调整问题

共有2511人关注过本帖树形打印复制链接主题：AFTERLOAD事件的调整问题

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/25 12:00:00 [显示全部帖子]

TIMETICK

Dim pbx181 As WinForm.PictureBox = e.Form.Controls("PictureBox37")

Dim lbl181 As WinForm.Label = e.Form.Controls("Label181")

Dim Count181 As Double

Count181 = Tables("投标策划安排意见").DataTable.Compute("Count(信息编号)","执行人 Like '%" & _UserName & "%' and (收阅确认 not Like '%" & _UserName & "%' or 收阅确认 Is null)")

If Count181 = 0 Then

pbx181.ImageFile = "GGreen.ico" '显示图片

ElseIf Count181 >= 1 Then

pbx181.ImageFile= "RRed.ico" '显示图片

End If

lbl181.Text = "" & Count181 & ""

Application.DoEvents()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/25 14:26:00 [显示全部帖子]

TIMETICK启用了没有？

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/25 15:39:00 [显示全部帖子]

TIMETICK

Dim pbx181 As WinForm.PictureBox = e.Form.Controls("PictureBox37")

Dim lbl181 As WinForm.Label = e.Form.Controls("Label181")

Dim Count181 As Double

Count181 = Tables("投标策划安排意见").DataTable.Compute("Count(信息编号)","执行人 Like '%" & _UserName & "%' and (收阅确认 not Like '%" & _UserName & "%' or 收阅确认 Is null)")

If Count181 = 0 Then

pbx181.ImageFile = "GGreen.ico" '显示图片

ElseIf Count181 >= 1 Then

pbx181.ImageFile= "RRed.ico" '显示图片

End If

lbl181.Text = "" & Count181 & ""

msgbox(Count181) ‘看能不能弹出内容’

Application.DoEvents()

另外表数据要保存，查出来的数据才会变化。最后如果这些都是内部数据表，放弃吧