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
---------------------------------------------------------------------------------
FieldInfo 概述
公共属性
Attributes
受 .NET Framework 精简版的支持。
获取与此字段关联的特性。
DeclaringType（从 MemberInfo 继承）
受 .NET Framework 精简版的支持。
获取声明该成员的类。
FieldHandle
受 .NET Framework 精简版的支持。
获取 RuntimeFieldHandle，它是字段的内部元数据表示形式的句柄。
FieldType
受 .NET Framework 精简版的支持。
获取此字段对象的类型。
IsAssembly
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示该字段是否有程序集级可见性。
IsFamily
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有家族级可见性。
IsFamilyAndAssembly
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有 FamilyAndAssembly 级可见性。
IsFamilyOrAssembly
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有 FamilyOrAssembly 级可见性。
IsInitOnly
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否只能在构造函数的主体中设置。
IsLiteral
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示该值是否在编译时写入并且不能更改。
IsNotSerialized
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否有 NotSerialized 特性。
IsPinvokeImpl
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示是否在 FieldAttributes 中设置相应的 PinvokeImpl 特性。
IsPrivate
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否为私有字段。
IsPublic
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否为公共字段。
IsSpecialName
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示是否在 FieldAttributes 枚举数中设置相应的 SpecialName 特性。
IsStatic
受 .NET Framework 精简版的支持。
获取一个值，通过该值指示此字段是否为静态字段。
MemberType
受 .NET Framework 精简版的支持。
已重写。获取此 FieldInfo 对象反映的属性的 Type。检索值指示该成员是一个字段。
Name（从 MemberInfo 继承）
受 .NET Framework 精简版的支持。
获取此成员的名称。
ReflectedType（从 MemberInfo 继承）
受 .NET Framework 精简版的支持。
获取用于获取 MemberInfo 的此实例的类对象。
文章来源于领测软件测试网 https://www.ltesting.net/
