求助：按键代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：按键代码

共有2640人关注过本帖树形打印复制链接主题：求助：按键代码

qwz405

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

加好友

发短信

等级：二尾狐帖子：522 积分：5027 威望：0 精华：0 注册：2015/4/15 15:25:00

求助：按键代码 发帖心情

Post By：2015/9/23 12:06:00 [只看该作者]

窗口“删除”键代码，希望“入库日期”超过10天的数据，不给删除，求代码，谢谢。

现在的代码，所有数据都删除不了了。

If Tables("商品入库").Current("入库日期") < Date.Today.AddDays(-10) Then
    MessageBox.Show("入库日期已超过10天,不能删除!" & vbcrlf & "需要帮助请联系管理员","提示",MessageBoxButtons.OK)
    Return
Else
    If Tables("商品入库").Current("停用") = True Then
        MessageBox.Show("已停用商品,资料不能删除!","提示",MessageBoxButtons.OK)
        Return
    Else
        If MessageBox.Show("商品入库资料删除后,将无法恢复!","警告",MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Tables("商品入库").Current.Delete
            DataTables("商品入库").Save()
        End If
    End If
End If