Imports System.Reflection
Dim i As Integer
Dim namestr As String
For i = 0 To dataset_system.Tables("Company").Columns.Count - 1
namestr = ""
namestr = "Txt_Company_" & dataset_system.Tables("Company").Columns.Item(i).Caption
Dim t As Type = Me.GetType
Dim f As FieldInfo = t.GetField("_" & namestr, BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.Public)
If dataset_system.Tables("Company").Columns.Item(i).Caption = "国际社" Then
Dim MyControl As CheckBox = CType(f.GetValue(Me), CheckBox)
MyControl.Enabled = chg
Else
Dim MyControl As TextBox = CType(f.GetValue(Me), TextBox)
MyControl.Enabled = chg
End If
Next
---------------------------------------------------------------------------------
公共属性
受 .NET Framework 精简版的支持。
获取与此字段关联的特性。
受 .NET Framework 精简版的支持。
获取声明该成员的类。
受 .NET Framework 精简版的支持。
获取 RuntimeFieldHandle，它是字段的内部元数据表示形式的句柄。
受 .NET Framework 精简版的支持。
获取此字段对象的类型。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示该字段是否有程序集级可见性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有家族级可见性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有 FamilyAndAssembly 级可见性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有 FamilyOrAssembly 级可见性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否只能在构造函数的主体中设置。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示该值是否在编译时写入并且不能更改。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有 NotSerialized 特性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示是否在 FieldAttributes 中设置相应的 PinvokeImpl 特性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否为私有字段。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否为公共字段。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示是否在 FieldAttributes 枚举数中设置相应的 SpecialName 特性。
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否为静态字段。
受 .NET Framework 精简版的支持。
已重写。获取此 FieldInfo 对象反映的属性的 Type。检索值指示该成员是一个字段。
受 .NET Framework 精简版的支持。
获取此成员的名称。
受 .NET Framework 精简版的支持。
获取用于获取 MemberInfo 的此实例的类对象。
