主题：[求助 ]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

delimg1、delimg1 定义了没有？你要在【全局代码】那里定义，然后赋值对应图片的。

 

贴出你定义和赋值的代码。

Public delimg1 As Image
Public delimg2 As Image

谢谢，已好了