以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何只获取项目中的所有内部表表名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175209)
--  作者：cnsjroom
--  发布时间：2022/2/24 2:29:00
--  如何只获取项目中的所有内部表表名

如何只获取项目中的所有内部表表名

 

当前代码如下：是获取内部表和项目已经加载的所有表名，有么有办法只获取内部表表名呢？

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim s As String
For Each dt As DataTable In DataTables
    \' messagebox.show(dt.name)       \'获取所有表名
    If dt.name = "表A"  OrElse dt.name Like "*_*" Then
    Else
        s = s & "|" & dt.name
    End If
Next
cm.ComboList=s.trim("|")
--  作者：有点蓝
--  发布时间：2022/2/24 9:07:00
--  
http://www.foxtable.com/webhelp/topics/0389.htm
--  作者：cnsjroom
--  发布时间：2022/2/24 9:12:00
--  回复：（有点蓝）http://www.foxtable.com/webhelp/to...

谢谢老师  已经按照老师的指导  解决

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim s As String
For Each dt As DataTable In DataTables
    \' messagebox.show(dt.name)       \'获取所有表名
    If dt.Type=1 Then   ’1内部数据表2内部查询表3外部数据表4外部查询表5临时表

        If dt.name = "表A"  OrElse dt.name Like "*_*" Then
        Else
            s = s & "|" & dt.name
        End If
    End If
Next
cm.ComboList=s.trim("|")