以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：按键代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74950)
--  作者：qwz405
--  发布时间：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
--  作者：大红袍
--  发布时间：2015/9/23 12:08:00
--  
代码没问题，看是不是你表名写错了，不对应表。
--  作者：qwz405
--  发布时间：2015/9/23 12:34:00
--  

1.用上面的代码，所有数据都删除不了(如图001)；


2.修改代码测试(如图002):
...
If Tables("商品入库").Current("入库日期") = Date.Today.AddDays(-10) Then
...


3.修改代码(如图003),感觉代码是起作用的。


是否可以判断问题大概出在哪？不然要新建文件上传代码了。

 

 


此主题相关图片如下：001.jpg
按此在新窗口浏览图片

此主题相关图片如下：002.jpg
按此在新窗口浏览图片

此主题相关图片如下：003.jpg
按此在新窗口浏览图片
[此贴子已经被作者于2015/9/23 12:34:00编辑过]
--  作者：大红袍
--  发布时间：2015/9/23 14:21:00
--  

肯定是你表名写错了，这样写

 

If Tables("商品入库").Current("入库日期") < Date.Today.AddDays(-10) Then

 

改成

 

If e.Form.Controls("Table1").Table.Current("入库日期") < Date.Today.AddDays(-10) Then
--  作者：qwz405
--  发布时间：2015/9/23 15:35:00
--  
谢谢~老师~