写值进去不知道 是不是不对，好像没有触发全局事件
Public Class ConvertHelper
'把DataRow值赋值到对象的实体对象
Public Shared Sub FromDataRow(ByVal dt1 As DataTable, ByVal entity As object)
Dim fs As System.Reflection.PropertyInfo() = entity.Gettype.GetProperties
Dim f As System.Reflection.PropertyInfo
For Each f In fs
Dim dr1 As DataRow = dt1.find("控件名称='" & entity.name & "' And 属性='" & f.name & "'")
MessageBox.Show("控件名称='" & entity.name & "' And 属性='" & f.name & "'")
If dr1 Is Nothing Then
Dim o As Object = dr1("控件名称")
If (Not o Is DBNull.Value) Then
f.SetValue(entity, o, Nothing)
End If
End If
Next
End Sub
'
' 把实体值赋值到DataRow
Public Shared Sub ToDataRow(ByVal entity As object, dt As DataTable)
Dim fs As System.Reflection.PropertyInfo() = entity.Gettype.GetProperties
Dim f As System.Reflection.PropertyInfo
For Each f In fs
Dim dr As DataRow = dt.find("控件名称='" & entity.name & "' And 属性='" & f.name & "'")''''''1
If dr Is Nothing Then
dr = dt.addnew
dr("控件名称") = entity.name
dr("属性") = f.name
End If
Dim o As Object = f.GetValue(entity, Nothing)
If (o Is Nothing) Then
dr("系统属性值") = DBNull.Value
Else
dr("系统属性值") = o
End If
Next
End Sub
End class
加好友 
发短信
Post By：2017/12/21 14:34:00 [显示全部帖子]
