以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  删除语句不起作用呢？还是有2月份数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114702)

--  作者：xxfoxtable --  发布时间：2018/2/13 21:15:00 --  删除语句不起作用呢？还是有2月份数据         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

--  作者：有点蓝 --  发布时间：2018/2/13 21:47:00 --   是这个编号的数据吗。另外这个只能删除已经加载的数据

--  作者：xxfoxtable --  发布时间：2018/2/13 21:47:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目2.rar 确实删除不了

--  作者：有点蓝 --  发布时间：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