主题：[求助]非关联表日期+1天录入

 

 表B日期等于对应表A编号的日期+1天，录入按钮代码，求助：

如果表B已存在的日期比对应表A的日期+1天还晚，提醒是否替换

 

With Tables("表A").Current

    If .Isnull("编号") = False OrElse  .IsNull("日期") = False Then

        MessageBox.Show("缺少 编号 或日期!")

        Return

    End If

End With

 

    Dim dr As DataRow = DataTables("表B").find("编号 = '" & Tables("表A").Current("编号") & "'")

    If dr IsNot Nothing  Then

    dr("日期") = cdate(Tables("表A").Current("编号")).AddDays(1)

    End If

 

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

点击浏览该文件:日期加一天.foxdb

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈