这么修改一下C版的代码
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