Dim dr As New Infragistics.Web.UI.DataSourceControls.DataRelation()
' 関係する親のビューを指定します。
dr.ParentDataViewID = "SqlDataSource_View1"
' 2 つの列を使用して複合キーを指定します。
dr.ParentColumns = New String() {"FirstName", "LastName"}
' 関係する子のビューを指定します。
dr.ChildDataViewID = "SqlDataSource_View2"
' 子データ ソースで複合キーを指定します。
dr.ChildColumns = New String() {"FirstName", "LastName"}
' WebHierarchicalDataSource に関係を追加します。
Me.WebHierarchicalDataSource1.DataRelations.Add(dr)