专家坐堂-合计时，发生了DRAWCELL错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=65478)

--  作者：cyrollin
--  发布时间：2015/3/17 9:39:00
--  合计时，发生了DRAWCELL错误

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，派工表，DrawCell
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

-----------------

DRAWCELL事件执行错误

--  作者：有点甜
--  发布时间：2015/3/17 9:40:00
--

贴出代码

--  作者：cyrollin
--  发布时间：2015/3/17 10:06:00
--
DRAWCELL 事件全部代码：

If e.Row("日期")<Date.Today() AndAlso e.Row.IsNull("日期") = False Then
e.style="gray"
Else If e.Row.IsNull("日期") = False AndAlso CDate(e.Row("日期")).Day Mod 2 = 1 Then
e.Style = "yellow"
End If

e.Table.DataTable.AddUserStyle("当前行", Color.Red, Color.black)
If e.Row.Index = e.Table.Current.Index
e.Style = "当前行"
End If

If e.Row.IsNull("签约终止日") = False
If e.Row("签约终止日") < Date.Today.AddDays(14) Then
e.Style = "red"
End If
End If

If e.Row.Isnull("日期") = True AndAlso e.Row.Isnull("客户信息") = False
e.style = "purple"
End If

If e.Row("颜色") = "黄色"
e.style ="黄色"
End If

If e.Row("颜色") = "红色"
e.style ="红色"
End If

If e.Row("颜色") = "蓝色"
e.style ="蓝色"
End If

--  作者：Bin
--  发布时间：2015/3/17 10:08:00
--

If e.Row("日期")<Date.Today() AndAlso e.Row.IsNull("日期") = False Then
e.style="gray"
Else If e.Row.IsNull("日期") = False AndAlso CDate(e.Row("日期")).Day Mod 2 = 1 Then
e.Style = "yellow"
End If

红色部分如果日期是空就会报错.

If e.Row("日期")<Date.Today() AndAlso e.Row.IsNull("日期") = False Then
e.style="gray"
Else If e.Row.IsNull("日期") = False Then
if CDate(e.Row("日期")).Day Mod 2 = 1  then
e.Style = "yellow"
end if
End If

--  作者：cyrollin
--  发布时间：2015/3/17 10:36:00
--
使用你下面给出的代码吗？

If e.Row("日期")<Date.Today() AndAlso e.Row.IsNull("日期") = False Then
e.style="gray"
Else If e.Row.IsNull("日期") = False  Then
if CDate(e.Row("日期")).Day Mod 2 = 1  then
e.Style = "yellow"
end if
End If

还是会报错哦。

--  作者：Bin
--  发布时间：2015/3/17 10:37:00
--

建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错，然后分析原因，搞不定，可以在论坛发帖，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。

--  作者：有点甜
--  发布时间：2015/3/17 11:20:00
--

改一改，不行，就做例子上来

e.Table.DataTable.AddUserStyle("当前行", Color.Red, Color.black)

If e.Table.Current IsNot Nothing AndAlso e.Row.Index = e.Table.Current.Index

e.Style = "当前行"

End If

--  作者：cyrollin
--  发布时间：2015/3/17 12:03:00
--
好了，谢谢TIANTIAN，