- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论] tables (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95201)
-- 发布时间：2017/1/12 22:08:00
-- [讨论] tables
Dim t As Table = Tables("开发主窗口_样板")
Dim t1 As Table = Tables("开发主窗口_样板")
Dim t2 As Table = Tables("开发主窗口_样板")
Dim t3 As Table = Tables("开发主窗口_样板")
Dim t4 As Table = Tables("开发主窗口_样板")
Dim t5 As Table = Tables("开发主窗口_样板")
Dim t6 As Table = Tables("开发主窗口_样板")
老师 我要把上面的代码弄个集合 遍历所有表 再引用这些表
Dim t() As String = {"开发主窗口_样板","开发主窗口_裁床","开发主窗口_车间","开发主窗口_尾部","开发主窗口_面料","开发主窗口_辅料","开发主窗口_工艺"}
Dim Names As New List(Of Tables)
Names.AddRange(t)
For Each dr As Table In Names
output.Show(dr)
Next
我用这样的方式，执行显示未定义Tables,您帮我看下是哪里出错了。谢谢
-- 发布时间：2017/1/12 22:19:00
--
Dim t() As String = {"开发主窗口_样板","开发主窗口_裁床","开发主窗口_车间","开发主窗口_尾部","开发主窗口_面料","开发主窗口_辅料","开发主窗口_工艺"}
Dim Names As New List(Of Tables)
Names.AddRange(t)
For Each dr As String In Names
output.Show(Tables(dr).name)
Next
-- 发布时间：2017/1/12 23:05:00
--
老师 还是显示错误
此主题相关图片如下：qq截图20170112230426.jpg
-- 发布时间：2017/1/12 23:08:00
--
Dim t() As String = {"开发主窗口_样板","开发主窗口_裁床","开发主窗口_车间","开发主窗口_尾部","开发主窗口_面料","开发主窗口_辅料","开发主窗口_工艺"}
Dim Names As New List(Of String)
Names.AddRange(t)
For Each dr As String In Names
output.Show(Tables(dr).name)
Next