以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  由表名标题提取表名出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175272)

--  作者:zhuxinhui
--  发布时间:2022/2/26 17:07:00
--  由表名标题提取表名出错
Dim str = Forms("标题匹配导入").Controls("combobox2").value
Forms("标题匹配导入").Controls("combobox3").value = DataTables(str).Caption

第二句出错

--  作者:有点蓝
--  发布时间:2022/2/26 17:15:00
--  
DataTables(xxx)这里的xxx只能使用表名

如果要根据标题获取表名,需要遍历所有表,然后判断哪个表标题符合条件的

For Each dt As DataTable In DataTables
    if dt.
Caption = “xx标题” then
msgbox(dt.name)
exit for
endif
Next

--  作者:zhuxinhui
--  发布时间:2022/2/26 17:17:00
--  
是由表标题求表名才对
--  作者:有点蓝
--  发布时间:2022/2/26 17:17:00
--  
看2楼
--  作者:zhuxinhui
--  发布时间:2022/2/27 16:29:00
--  
多谢