主题：[讨论] 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,您帮我看下是哪里出错了。谢谢

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

 

老师 还是显示错误

 

此主题相关图片如下：qq截图20170112230426.jpg

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