Dim DS_ParentChild As New DataSet()
DS_ParentChild.Tables.Add(DTMaterial)
DS_ParentChild.Tables.Add(DTChild)
'Relation
DS_ParentChild.Relations.Add("MODEL",
DTMaterial.Columns("CODE"),
DTChild.Columns("CHILD")
)
.DataSource = DS_ParentChild
.ActiveSheet.Columns(0).DataField = "CODE"
Comments
Post a Comment