Foxtable(狐表)用户栏目专家坐堂 → 删除语句不起作用呢?还是有2月份数据


  共有131人关注过本帖树形打印复制链接

主题:删除语句不起作用呢?还是有2月份数据

帅哥哟,离线,有人找我吗?
xxfoxtable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:267 积分:2114 威望:0 精华:0 注册:2017/6/1 23:12:00
删除语句不起作用呢?还是有2月份数据  发帖心情 Post By:2018/2/13 21:15:00 [只看该作者]

        Dim d1 As Date = new Date(val(cb1.text),val(cb2.text),1)
        Dim rkc As DataRow=DataTables("日库存表").find("[编号]='" & dr("编号") & "' And 日期 >= '" & d1 & "' And 日期<'" & d1.AddMonths(1) & "'")       
        If rkc IsNot Nothing
        DataTables("日库存表").DeleteFor("[编号]='" & dr("编号") & "' And 日期 >= '" & d1 & "' And 日期<'" & d1.AddMonths(1) & "'")
         DataTables("日库存表").save       
        End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:17283 积分:88056 威望:0 精华:6 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 21:47:00 [只看该作者]

是这个编号的数据吗。另外这个只能删除已经加载的数据

 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:267 积分:2114 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/2/13 21:47:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
确实删除不了

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:17283 积分:88056 威望:0 精华:6 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 22:23:00 [只看该作者]

access日期要使用#

Dim rkc As DataRow=DataTables("日库存表").SQLfind("[编号]='" & dr("编号") & "' And 日期 >= #" & d1 & "# And 日期<#" & d1.AddMonths(1) & "#")
    If rkc IsNot Nothing
        DataTables("日库存表").SQLDeleteFor("编号='" & dr("编号") & "' And 日期 >= #" & d1 & "# And 日期<#" & d1.AddMonths(1) & "#")
        DataTables("日库存表").save
    End If

 回到顶部