我写的代码是这样，但是不正确？
想实现的效果是：“入司日期”< "本月第一天" 且 "离职日期" 为空值 或 “离职日期”大于等于 “本月第一天” 则
“前月末在职” 填入 “1”
Dim dq As DataRow = e.DataRow
Dim FirstDay As Date = New Date (Date.Today.Year,Date.Today.Month,1)
Dim LastDay As Date = New Date (Date.Today.Year,Date.Today.Month,Date.DaysInMonth(Date.Today.Year,Date.Today.Month))
Dim dt As DataTable =DataTables("员工信息表")
If e.DataCol.Name = "前月末在职" And dq.IsNull("前月末在职") = False Then
If dq("入司日期") < FirstDay And dq("离职日期") IsNothing Or dq("离职日期") >= FirstDay Then
dq("前月末在职") = "1"
End If
End If
加好友 
发短信
Post By：2016/12/21 11:52:00 [显示全部帖子]
此主题相关图片如下：函数1.png
