父类:
Public Class Cls_BaseEntity
'''
''' 实例唯一标识
'''
'''
'''
'''
Public Property EntityID As String
'''
''' 实例编码
'''
'''
'''
'''
Public Property EntityCode As String
'''
''' 实例名称
'''
'''
'''
'''
Public Property EntityName As String
'''
''' 实例描述
'''
'''
'''
'''
Public Property EntityDescribe As String
Public Property Tables As New List(Of Cls_Table)
End Class
子类:
Public Class CyzFwz_参与者
Inherits WdpcDocument.Cls_BaseEntity
Public Nt As New MyTable
Public Nt2 As New MyTable2
Sub New()
Me.EntityCode = "En0001"
Me.EntityDescribe = "干什么用"
Me.EntityName = "CyzFwz_参与者"
MyBase.AddTable(Nt)
MyBase.AddTable(Nt2)
End Sub
Sub New(EntityID As String)
Me.EntityCode = "En0001"
Me.EntityDescribe = "干什么用"
Me.EntityName = "CyzFwz_参与者"
Me.EntityID = EntityID
Me.AddTable(Nt)
Me.AddTable(Nt2)
End Sub
'<XmlType(Namespace:="Entity.CyzFwz_参与者.MyTable")>
<XmlInclude(GetType(List(Of MyTable.Row)))>
Public Class MyTable
Inherits WdpcDocument.Cls_Table
<XmlElement(Type:=GetType(List(Of MyTable.Row)))>
Public Overrides Property Rows = New List(Of MyTable.Row)
Sub New()
Me.TableName = "dfs"
Me.Columns.Add(New WdpcDocument.Cls_Column("gzrybm_工作人员编码", New WdpcDataElement.DE.Rkshshjjx_人口学和社会经济学.gzrybm_工作人员编码, True, False))
Me.Columns.Add(New Cls_Column("Xm_姓名", New WdpcDataElement.DE.Rkshshjjx_人口学和社会经济学.Xm_姓名, True, False))
End Sub
<XmlType(Namespace:="MyTable.Row")>
Public Class Row
Inherits Cls_Row
<JsonProperty("R1")>
Public Property gzrybm_工作人员编码 As String
<JsonProperty("R2")>
Public Property Xm_姓名 As New Cls_RowItem_Enum
Sub New()
End Sub
End Class
End Class
'<XmlType(Namespace:="Entity.CyzFwz_参与者.MyTable2")>
<XmlInclude(GetType(List(Of MyTable2.Row)))>
Public Class MyTable2
Inherits Cls_Table
<XmlElement(Type:=GetType(List(Of MyTable2.Row)))>
Public Overrides Property Rows = New List(Of MyTable2.Row)
Sub New()
Me.TableName = "dfs"
Me.Columns.Add(New Cls_Column("gzrybm_工作人员编码", New WdpcDataElement.DE.Rkshshjjx_人口学和社会经济学.gzrybm_工作人员编码, True, False))
Me.Columns.Add(New Cls_Column("Xm_姓名", New WdpcDataElement.DE.Rkshshjjx_人口学和社会经济学.Xm_姓名, True, False))
Me.Columns.Add(New Cls_Column("Xm_姓名", New WdpcDataElement.DE.Rkshshjjx_人口学和社会经济学.Xm_姓名, True, False))
End Sub
<XmlType(Namespace:="MyTable2.Row")>
Public Class Row
Inherits Cls_Row
<JsonProperty("R1")>
Public Property gzrybm_工作人员编码 As String
<JsonProperty("R2")>
Public Property Xm_姓名 As New Cls_RowItem_Enum
<JsonProperty("R3")>
Public Property Xm_姓名a As New Cls_RowItem_Enum
Sub New()
End Sub
End Class
End Class
End Class
反序列以后 Tables 里面会产生四个项目