Hi, no your sample code doesn't work for me. It's not really a very good example as it doesn't really do anything does it? The rebind button doesn't change the underlying datasets, it just removes them and attaches them again.
This is my code
Private Sub LoadOrders()
Dim aSQLAddress As New SQLAddress
Try
dsOrders.Reset()
aSQLAddress.GetOrdersByCustomer(dsOrders, lngRecordUID)
Catch ex As Exception
MessageBox.Show("There has been an error in the LoadOrders sub." & _
vbCrLf & _
"The error message is :" & _
vbCrLf & _
ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
If dgOrderHeader Is Nothing Then
dgOrderDetails = New GridHierDataBoundGrid(Me, dsOrders.Tables("OrderDetail"), Nothing, Nothing, Nothing, Nothing, False)
dgOrderHeader = New GridHierDataBoundGrid(Me, dsOrders.Tables("OrderHeaders"), dsOrders.Tables("OrderDetail"), dgOrderDetails, New QueryFilterStringEventHandler(AddressOf ProvideOrder_DetailsFilterStrings), New QueryFormatGridEventHandler(AddressOf ProvideOrder_DetailsFormat), True)
If Not HandlersInitialised Then
HandlersInitialised = True
InitialiseHandlers()
End If
Else
dgOrderHeader.Binder.ResetHierarchyLevels()
dgOrderDetails.Binder.ResetHierarchyLevels()
dgOrderDetails.GridBoundColumns.Clear()
dgOrderDetails.DataSource = Nothing
dgOrderDetails.DataSource = dsOrders.Tables("OrderDetail")
dgOrderHeader.GridBoundColumns.Clear()
dgOrderHeader.DataSource = Nothing
dgOrderHeader.DataSource = dsOrders.Tables("OrderHeaders")
End If
With dgOrderHeader
.BeginUpdate()
.AllowResizeToFit = True
.Model.ReadOnly = True
.ThemesEnabled = True
.Location = New Point(12, 185)
.Size = New Size((Me.ClientSize.Width - 40), (Me.ClientSize.Height - 225))
.Anchor = (((AnchorStyles.Bottom Or AnchorStyles.Left) _
Or AnchorStyles.Right) _
Or AnchorStyles.Top)
Controls.Add(dgOrderHeader)
.BorderStyle = BorderStyle.FixedSingle
.CurrentCell.Deactivate(True)
.CurrentCell.Activate(1, 2, GridSetCurrentCellOptions.SetFocus)
.ActivateCurrentCellBehavior = GridCellActivateAction.None
.SortBehavior = GridSortBehavior.SingleClick
.Model.ColWidths.ResizeToFit(GridRangeInfo.Cols(1, dgOrderHeader.Model.ColCount))
.EndUpdate()
End With
I have attached the results of a first and second search using this code.
Again, is the GridHierDataBoundGrid object still valid? there is no help for it in the help files.
tony
samples_d861c15d.zip