主题：删除领水凭证行

纯净水领用表和领水凭证表都有日期列，删除领水凭证表里纯净水领用表没有的日期，也就是删除领水凭证表日期是2019-05-23的行，请老师指教，谢谢！

 

此主题相关图片如下：qq截图20190528105723.png

 

此主题相关图片如下：qq截图20190528105617.png

请老是指教，Access外表

For Each dr As DataRow In DataTables("领水凭证").DataRows？
    If DataTables("纯净水领用").SQLFind("日期 = #"& dr("日期") &"#") Is Nothing Then
        dr.Delete()
    End If
Next

 

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

 

老师，我是Access数据库，没有全部加载，能从后台删除吗？

参考

 

Dim cmd As new SQLCommand
cmd.CommandText = "delete from {领水凭证} where 日期 not In (Select 日期 from {纯净水领用} where 日期 Is not null)"
cmd.ExecuteNonQuery
DataTables("领水凭证").load

谢谢

此主题相关图片如下：tim截图20190529104518.png