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
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.