以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186646)

--  作者:ycs5801
--  发布时间:2023/5/17 14:35:00
--  删除行

 Dim drs As List(Of DataRow) = DataTables("事项进度").SQLSelect("主键编号= \'" & dr("_Identify") & "\'")
    For Each dr2 As DataRow In drs
        If Names2.Contains(dr2("录入人员")) = False Then \'将现有行中需要删除的删除掉
            dr2.delete()
            dr2.Remove()
            dr2.Save()
        Else
            Names.Add(dr2("录入人员"))
        End If
    Next

 

上面代码dr2.delete() 这个对不对?貌似没起作用


--  作者:有点蓝
--  发布时间:2023/5/17 14:45:00
--  
如果要删除符合条件的数据,一句就行了

DataTables("事项进度").SQLdeletefor("主键编号= \'" & dr("_Identify") & "\' and 录入人员 not in (\'" & string.join("\',\'",Names2.toarray) & "\')")