以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助 ]DrawCell 报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117418)

--  作者: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


--  作者:有点甜
--  发布时间:2018/4/12 11:45:00
--  

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

 

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


--  作者:Cloud
--  发布时间:2018/4/12 11:50:00
--  
Public delimg1 As Image
Public delimg2 As Image
--  作者:Cloud
--  发布时间:2018/4/12 11:53:00
--  

谢谢,已好了