以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不到指定时间(年月日),不允许打开指定的窗口?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121110)
--  作者：fytea
--  发布时间：2018/6/29 11:44:00
--  不到指定时间(年月日),不允许打开指定的窗口?
不到指定时间(年月日),不允许打开指定的窗口,并且能动态管理,怎么做?请提供一个思路
--  作者：有点甜
--  发布时间：2018/6/29 13:39:00
--  

1、你窗口怎么打开的？

 

2、年月日指哪里的数据？
--  作者：fytea
--  发布时间：2018/6/30 9:27:00
--  

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

 
--  作者：fytea
--  发布时间：2018/6/30 9:40:00
--  
按照国家档案局规定,每个单位档案归档时间为当年度的文件到第二年3月份归档,平时时间不能归档
--  作者：fytea
--  发布时间：2018/6/30 9:50:00
--  

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

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
--  作者：fytea
--  发布时间：2018/6/30 10:18:00
--  
如果我在发文登记表中增加一列拟定归档时间,比如2019年3月1日,未到归档时间,不予归档,并提示还差xxx天才到,然后终止运行怎么写?
--  作者：有点蓝
--  发布时间：2018/6/30 10:42:00
--  
直接查询可以归档的数据，如

For Each adr As DataRow In DataTables("发文登记簿").Select("是否归档= true and 归档时间 < #" & date.today & "#")