主题：不到指定时间(年月日),不允许打开指定的窗口?

不到指定时间(年月日),不允许打开指定的窗口,并且能动态管理,怎么做?请提供一个思路

1、你窗口怎么打开的？

 

2、年月日指哪里的数据？

按钮打开,年月日指哪里的数据是什么意思?

 

按照国家档案局规定,每个单位档案归档时间为当年度的文件到第二年3月份归档,平时时间不能归档

我做的方法是平时把单位的发文做好登记,收文做好登记,是两张表.到归档时间通过按钮把两张表复制到归档表中,用的是如下代码

For Each adr As DataRow In DataTables("发文登记簿").Select("是否归档= true")
    Dim dr As DataRow = DataTables("预归档表").AddNew
    Dim cs1() As String = {"流水号", "文件编号", "文件题名","责任者","文件时间","保管期限","页数"} '表B列
    Dim cs2() As String = {"流水号", "文件编号", "文件题名","责任者","文件时间","归档保管期限","页数"} '表A列
    For i As Integer = 0 To cs1.length-1
        dr(cs1(i)) = adr(cs2(i))
    Next
DataTables("发文登记簿").deletefor("是否归档 = true")
Next
'-------------------------------
For Each adr As DataRow In DataTables("收文登记簿").Select("是否归档= true")
    Dim dr As DataRow = DataTables("预归档表").AddNew
    Dim cs1() As String = {"流水号", "文件编号", "文件题名","责任者","文件时间","保管期限","页数"} '表B列
    Dim cs2() As String = {"流水号", "文件编号", "文件题名","责任者","文件时间","归档保管期限","页数"} '表A列
    For i As Integer = 0 To cs1.length-1
        dr(cs1(i)) = adr(cs2(i))
    Next
DataTables("收文登记簿").deletefor("是否归档 = true")
Next

如果我在发文登记表中增加一列拟定归档时间,比如2019年3月1日,未到归档时间,不予归档,并提示还差xxx天才到,然后终止运行怎么写?

直接查询可以归档的数据，如