移动开发“ 今日之前的日期”不可编辑、删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发“ 今日之前的日期”不可编辑、删除

共有2086人关注过本帖树形打印复制链接主题：移动开发“ 今日之前的日期”不可编辑、删除

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/8 12:37:00 [显示全部帖子]

js端不好控制，建议在httprequest里面控制。

edit.htm页面，先根据编号的值查找到对应的行；

然后对比日期，如果是之前的数据，那就提示不允许删除返回；否则，执行原来的代码。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/8 17:03:00 [显示全部帖子]

Dim dr As DataRow = DataTables("订餐明细表").SQLFind("[_Identify]=" & PrimaryKey)

直接替换成

Dim dr As DataRow = DataTables("订餐明细表").SQLFind("[_Identify]=" & PrimaryKey & " and 日期 = #" & date.today & "#")

----------------

如果想额外增加提示，还可以这样

Dim dr As DataRow = DataTables("订餐明细表").SQLFind("[_Identify]=" & PrimaryKey)

If dr IsNot Nothing Then

If dr("日期") < Date.Today Then

'这里提示出错，生成一个页面

Else

'正常页面

End If

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/8 17:46:00 [显示全部帖子]

贴出你写的代码。改成这样呢？

Dim dr As DataRow = DataTables("订餐明细表").SQLFind("[_Identify]=" & PrimaryKey & " and 日期 >= #" & date.today & "#")

主题：移动开发“ 今日之前的日期”不可编辑、删除