以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151767)

--  作者:BG小白
--  发布时间:2020/7/3 2:00:00
--  请教
我在论坛找到一串代码特别好用,但是能不能让这串代码指定表呢?就是删除指定表的符合条件的行
Dim str As New List (Of String)
Dim id As String
For Each r As Row In CurrentTable.Rows
    If str.Contains(r("上级部门")&r("单位名称")&r("姓名")) =False Then
        str.Add(r("上级部门")&r("单位名称")&r("姓名"))
        id + = r("_Identify") & ","
    End If
Next
CurrentTable.Filter = "_Identify not In (" & id & ")"
CurrentTable.Sort="上级部门,单位名称,姓名"
 For i As Integer = CurrentTable.Rows.Count - 1 To 0 Step -1 
CurrentTable.Rows(i).Delete 
Next 
CurrentTable.Filter = ""

我把蓝色部分改成For Each r As Row In Tables("表A").Rows 提示我tables是一个类型,不能用作表达式
[此贴子已经被作者于2020/7/3 2:21:55编辑过]

--  作者:BG小白
--  发布时间:2020/7/3 2:53:00
--  
找到解决方法了改成For Each r As DataRow In DataTables("表A").DataRows就可以了