直接去写datacolchanged事件
If e.DataCol.Name = "立项" AndAlso e.NewValue = True AndAlso Forms("窗口1").Opened Then
Forms("窗口1").Controls("PictureBox1").Image = GetImage("立项.png")
End If
加好友 
发短信
Post By：2016/8/3 17:16:00 [显示全部帖子]
