主题：有关逻辑列的勾选问题

大概如此：

1、设置DataColChanged事件代码：
 
Select Case e.Datacol.Name
    Case "请假日期","请假天数"
           if e.datarow.Isnull("请假日期") Orlese e.DataRow.Isnull("请假天数") Then
               e.Datarow("是否请假") = False
            Else
                 Dim d As Date = e.datarow(“请假日期")
                 d= d.AddDays(e.datarow("请假天数") -1)
                 If Date.Today <= d  AndAlso d >= e.datarow(“请假日期") Then
                      e.Datarow("是否请假") = True
                 Else
                     e.Datarow("是否请假") = False
                 End If
            End If
End Select
 
2、在AfterOpenProject加上代码：
DataTables("考勤表").DataCols("请假日期").RaiseDataColChanged()