-- 作者:Cloud
-- 发布时间:2018/4/12 11:42:00
-- [求助 ]DrawCell 报错
.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
|