| Sub dock_Command(ByVal sender As Object, ByVal e As DockCommandEventArgs) | |
| If e.Command.Name = "ExpandCollapse" Then | |
| 'Update record in database if dock is collapsed | |
| UpdateRec((DirectCast(sender, RadDock)).Title, (DirectCast(sender,RadDock)).DockZoneID, (DirectCast(sender, RadDock)).Collapsed.ToString) | |
| End If | |
| If e.Command.Name = "Close" Then | |
| Dim DelDock As String = (DirectCast(sender, RadDock)).Title | |
| DeleteRec(Profile.UserName, DelDock.ToString) | |
| Dim i As Integer | |
| For i = 0 To Me.combolist.Items.Count - 1 | |
| If combolist.Items(i).Text = DelDock.ToString Then | |
| combolist.Items(i).Enabled = True | |
| Dim j As Integer | |
| For j = 0 To arr.Count - 1 | |
| If arr(j).ToString = combolist.Items(i).Value.ToString Then | |
| ' Label1.Text += arr(j).ToString | |
| arr.RemoveAt(j) | |
| Exit For | |
| End If | |
| Next | |
| Exit For | |
| End If | |
| Next | |
| Dim z As Integer | |
| If (DirectCast(sender, RadDock)).DockZoneID = "RadDockZone1" Then | |
| 'Reorder docks Index for DockZone 1 after deletion | |
| For z = 0 To Me.RadDockZone1.Docks.Count - 1 | |
| UpdateIndex(Me.RadDockZone1.Docks(z).Title, "RadDockZone1", z.ToString) | |
| Next | |
| Else | |
| 'Reorder docks Index for DockZone 2 after deletion | |
| For z = 0 To Me.RadDockZone2.Docks.Count - 1 | |
| UpdateIndex(Me.RadDockZone2.Docks(z).Title, "RadDockZone2", z.ToString) | |
| Next | |
| End If | |
| ScriptManager.RegisterStartupScript(UpdatePanel1, Me.[GetType](), "RemoveDock", String.Format("function _removeDock() {{" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "Sys.Application.remove_load(_removeDock);" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "$find('{0}').undock();" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "$get('{1}').appendChild($get('{0}'));" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "$find('{0}').doPostBack('DockPositionChanged');" & Chr(13) & "" & Chr(10) & "}};" & Chr(13) & "" & Chr(10) & "Sys.Application.add_load(_removeDock);", (DirectCast(sender, RadDock)).ClientID, UpdatePanel1.ClientID), True) | |
| End If | |
| End Sub |
Example 1.
dataAdapter.Fill(myDataSet);
myDataSet.Tables[0].TableName = "workorder";
myDataSet.Tables[1].TableName = "details";
DataRelation dr = new DataRelation("workorders",
myDataSet.Tables[0].Columns["WorkOrderId"],
myDataSet.Tables[1].Columns["WorkOrderId"]);
DataSet.Relations.Add(dr);
radGridView1.AutoGenerateHierarchy = true;
radGridView1.DataSource = myDataSet;
radGridView1.DataMember = "workorder";
Example 2.
radGridView1.DataSource = myDataSet.Tables[0];
GridViewTemplate template = new GridViewTemplate();
template.DataSource = myDataSet.Tables[1];
radGridView1.MasterGridViewTemplate.ChildGridViewTemplates.Add(template);
GridViewRelation relation = new GridViewRelation(radGridView1.MasterGridViewTemplate);
relation.ChildTemplate = template;
relation.RelationName = "workorders";
relation.ParentColumnNames.Add("WorkOrderId");
relation.ChildColumnNames.Add("WorkOrderId");
radGridView1.Relations.Add(relation);