主题：如何计算日期差和满足领用条件

如何计算最后领用日期与当前日期相差的月份，如果大于期限列的要求则显示逻辑列显示可以领用？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:演示.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:演示.table

非常感谢！中秋节快乐1

请问如何打开数据表时就自动进行计算。以上只是实现了数据变化后进行计算？谢谢

上面的文件，打开后就会自动计算，原因你看看我在项目事件AfterOpenProjct设置的代码

是空白的

不好意思，看到了。谢谢

增加了一个“用品领用”表，将满足条件的列出。就是不知道如何设置在关闭项目时清空“用品领用”表。现在每次打开后会自动增加。麻烦看看，谢谢！

DateColChanged代码如下：

Select Case e.DataCol.name
    Case "最近领用1"
        If e.DataRow.IsNull("最近领用1") Then
            e.DataRow("剩余期限(月)") = Nothing
            e.DataRow("可否领用") = False
        Else
            Dim dt1 As Date = e.DataRow("最近领用1")
            Dim dt2 As Date = Date.now
            e.DataRow("剩余期限(月)") = (dt2.year - dt1.year) * 12 +(dt2.month - dt1.month)
           e.DataRow("可否领用") = (e.DataRow("剩余期限(月)") >= e.DataRow("使用期限"))
If  e.DataRow("可否领用") = True Then
    Dim nma() As String = {"工号","姓名","配置名称","可否领用"}
    Dim nmb() As String = {"工号","姓名","配置名称","可否领用"}
    Dim dr As DataRow = DataTables("用品领用").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If
End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:演示.table