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