狐爸
你好！我想问下，我在表事件current changed事件添加代码：
'故障报修弹出窗口设备状态背景颜色转换,主要是在切换上下行时候转换，主要是想解决行切换时，lable颜色随着动态变化。
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
Else
Dim zt As String = e.Table.current("设备状态")
If zt = "待修中" Then
此主题相关图片如下：新建 bmp 图像.bmp
Forms("故障报修弹出窗口").controls("Label8").backcolor = color.red
Else If zt = "维修中" Then
Forms("故障报修弹出窗口").controls("Label8").backcolor = color.fuchsia
Else If zt = "运行中" Then
Forms("故障报修弹出窗口").controls("Label8").backcolor = color.lime
End If
End If
调试时候发现功能可以使用了，但是重新运行项目发现报错，确定之后试运行却没有任何问题，请问这个报错怎么解决。
报错图片在附件中。
刚看了论坛，终于明白了，少了判断语句。现在不报错了
If Forms("故障报修弹出窗口").Opened then
[此贴子已经被作者于2012-4-23 1:35:45编辑过]
加好友 
发短信
Post By：2012/4/23 1:09:00 [显示全部帖子]
