专家坐堂-窗口里的CurrentChanage 事件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Table.Current Is Nothing Then

Return

End If

Dim d As Date = daynow

Dim y As Integer = daynow.Year

Dim m As Integer = daynow.Month

Dim tian As Integer = d.day

Dim dt1,dt2 As Date

If tian <= 12 Then

Dim n As Date = d.AddMonths(-1)

Dim mn As Integer = n.Month

dt1 = New Date(y, mn, 13) \'获取前一月第11天

dt2 = New Date(y, m,12) \'获取本月第10天

Else

Dim n As Date = d.AddMonths(1)

Dim mn As Integer = n.Month

dt1 = New Date(y, m, 13) \'获取本月第11天

dt2 = New Date(y, mn,12) \'获取后月第10天

End If

Dim Filter2 As String

Dim bdepart As String = e.Form.Controls("TextBox9").Value

Dim items As String = e.Form.Controls("TextBox10").Value

Dim xmlb As String = e.Form.Controls("TextBox27").Value \'项目类别

Dim depart As String = User.Group

Dim pbx As WinForm.PictureBox

Dim dr As DataRow

If xmlb = "职能管理工作" Then

Filter2 =" [部门名称] = \'" & bdepart & "\' And [考核部门]= \'" & depart & "\' And [考核项目]= \'" & items & "\' And [日期] >= \'" & dt1 & "\' And [日期] <= \'" & dt2 & "\'"

dr = DataTables("职能管理工作").Find(Filter2)

If dr IsNot Nothing Then

pbx = e.Form.Controls("PictureBox5")

pbx.Image = GetImage("Images\\exclamation.png")

e.Form.Controls("Label19").Text = "提示:该条考核项目已打分!"

End If

Else

Filter2 =" [部门名称] = \'" & bdepart & "\' And [考核部门]= \'" & depart & "\' And [考核项目]= \'" & items & "\' And [日期] >= \'" & dt1 & "\' And [日期] <= \'" & dt2 & "\'"

dr = DataTables("重点工作").Find(Filter2)

If dr IsNot Nothing Then

pbx = e.Form.Controls("PictureBox5")

pbx.Image = GetImage("Images\\exclamation.png")

e.Form.Controls("Label19").Text = "提示:该条考核项目已打分!"

End If

错误提示如下：

.NET Framework 版本：4.0.30319.36543

Foxtable 版本：2019.8.3.1

错误所在事件：manage_demo1,CurrentChanged

详细错误信息：

Object reference not set to an instance of an object.