For Each c As WinForm.Control In e.Form.Controls If c.Gettype.name = "Table" Dim s As String Dim t As Table = ctype(c,Winform.Table).Table Select Case t.TableType Case TableTypeEnum.Normal If t.IsCopy Then s = "副本" Else s = "标准" End If MessageBox.Show(s) End Select End If Next