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 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

这篇博客介绍了在VB.NET中如何利用FieldInfo类来访问和操作控件,特别是通过控件的名称来控制其行为。主要内容聚焦于公共属性的使用。
最低0.47元/天 解锁文章

被折叠的 条评论
为什么被折叠?



