关于表名集合 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于表名集合

共有8000人关注过本帖树形打印复制链接主题：关于表名集合

lzgt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：69 积分：789 威望：0 精华：0 注册：2017/7/1 18:52:00

Post By：2022/3/18 11:32:00 [显示全部帖子]

Dim Name As String
For Each dt As datatable In DataTables
Name = Name & "|" & dt.Name
Next
e.Form.Controls("ComboBox1").ComboList = Name

最近刚好用到提取表名&窗体名的列表，用遍历的方法是可以取得，但有个小问题是这个列表不是按表/窗体名排列的，可以把字符串用spilt 转成数组》排序》转成字符串，这样表或窗体多的话不会乱。如有这种需要的话。

Dim Name As String

Dim names() As String

For Each dt As DataTable In DataTables

Name = Name & "|" & dt.Name

names = name.split("|")

Array.Sort(names)

name = String.join("|",names)

e.Form.Controls("ComboBox1").ComboList = Name

lzgt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：69 积分：789 威望：0 精华：0 注册：2017/7/1 18:52:00

Post By：2022/3/18 11:35:00 [显示全部帖子]

有点不对：还要改下

Dim Name As String

Dim names() As String

For Each dt As DataTable In DataTables

If name = "" Then

name = dt.name

Else

Name = Name & "|" & dt.Name

End If

names = name.split("|")

Array.Sort(names)

name = String.join("|",names)

e.Form.Controls("ComboBox1").ComboList = Name

主题：关于 表名集合