以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58731)

--  作者:zhupengfei
--  发布时间:2014/10/22 20:49:00
--  求助!
如何,遍历所有窗体的所属表的表名,以不重复的字符串集合返回。
--  作者:有点甜
--  发布时间:2014/10/22 20:54:00
--  
 Dim ls As new List(Of String)
For Each f As Object In Forms
    f.open(-1000, -1000)
    If ls.Contains(f.TableName) = False Then
        ls.Add(f.TableName)
    End If
    f.close
Next