- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于表事件的currentchanged事件代码报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18950)
-- 发布时间：2012/4/23 1:09:00
-- [求助]关于表事件的currentchanged事件代码报错
狐爸
你好！我想问下，我在表事件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
此主题相关图片如下：新建 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编辑过]