s As String Dim t As Table = Tables("窗口1_Table1") Select Case t.TableType Case TableTypeEnum.Normal If t.IsCopy Then s = "副本" Else s = "标准" End If Case TableTypeEnum.SQLTable s = "SQLTable" Case TableTypeEnum.SQLQuery s = "SQLQuery" End Select MessageBox.Show(s)