- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 删除领水凭证行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135501)
-- 发布时间：2019/5/28 11:18:00
-- 删除领水凭证行
纯净水领用表和领水凭证表都有日期列，删除领水凭证表里纯净水领用表没有的日期，也就是删除领水凭证表日期是2019-05-23的行，请老师指教，谢谢！
此主题相关图片如下：qq截图20190528105723.png
此主题相关图片如下：qq截图20190528105617.png
[此贴子已经被作者于2019/5/28 11:19:31编辑过]
-- 发布时间：2019/5/28 11:36:00
--
请老是指教，Access外表
For Each dr As DataRow In DataTables("领水凭证").DataRows？
If DataTables("纯净水领用").SQLFind("日期 = #"& dr("日期") &"#") Is Nothing Then
dr.Delete()
End If
Next
[此贴子已经被作者于2019/5/28 12:06:12编辑过]
-- 发布时间：2019/5/28 12:25:00
--
For i As Integer = DataTables("领水凭证").DataRows.count-1 To 0 Step -1
Dim dr = DataTables("领水凭证").DataRows(i)
If DataTables("纯净水领用").SQLFind("日期 = #"& dr("日期") &"#") Is Nothing Then
dr.Delete()
End If
Next
-- 发布时间：2019/5/28 13:43:00
--
老师，我是Access数据库，没有全部加载，能从后台删除吗？
-- 发布时间：2019/5/28 15:41:00
--
参考
Dim cmd As new SQLCommand
cmd.CommandText = "delete from {领水凭证} where 日期 not In (Select 日期 from {纯净水领用} where 日期 Is not null)"
cmd.ExecuteNonQuery
DataTables("领水凭证").load
-- 发布时间：2019/5/28 15:43:00
--
谢谢
-- 发布时间：2019/5/29 10:46:00
--
此主题相关图片如下：tim截图20190529104518.png