.NET Framework 版本:2.0.50727.5420
Foxtable 版本:2018.3.9.1
错误所在事件:全局表事件,DrawCell
详细错误信息:
调用的目标发生了异常。
值不能为空。
参数名: image
DrawCell
Select Case e.Table.name
Case "窗口表"
Select Case e.Col.Name
Case "设置权限"
If e.Row("窗口名称").StartsWith("登陆") OrElse e.Row("窗口名称").StartsWith("窗口") OrElse e.Row("窗口名称").StartsWith("首页") OrElse e.Row("窗口名称").StartsWith("注册") OrElse e.Row("窗口名称").StartsWith("添加") Then
e.StartDraw()
Dim fnt As New Font("宋体",9)
e.Graphics.FillRectangle(Brushes.Gray,e.x,e.y,60,20)
e.Graphics.DrawString("禁 止",Fnt,Brushes.white,e.X + 6, e.y + 3)
e.EndDraw()
End If
End Select
Case "权限表"
Select Case e.Col.Name
Case "窗口名称"
If e.Row(e.Col.Name) = "" Then
e.StartDraw()
Dim fnt As New Font("隶书",13)
e.Graphics.FillRectangle(Brushes.Gray,e.x,e.y,114,20)
e.Graphics.DrawString("导航分组",Fnt,Brushes.white,e.x,e.y)
e.EndDraw()
End If
End Select
End Select
Select Case e.Table.name
Case "窗口表","窗口按钮表","权限表"
Select Case e.Col.Name
Case "删"
e.StartDraw
If e.MouseHover = False '如果鼠标不在此单元格
e.Graphics.DrawImage(delimg1, e.x + 3,e.y + 3) '绘制第一个图标
Else '如果鼠标在此单元格
e.Graphics.DrawImage(delimg2, e.x + 2,e.y + 2) '绘制第二个图标
End If
e.EndDraw
End Select
End Select