Switching between datasources using bound controls

[bparr]

All,

I am using Windows Forms and have multiple XML datasets feeding various
controls. Here is the situation.

I have a master dataset that saves a document to the drive. Out of 50
fields in the XML document, there are 5 that have defaults loaded from
a different XML dataset when the new form is created.

In pseudocode

If New
Fee Dataset = openxml Fees.xml
txtFee1.text = Fee Dataset (Fee1)
Else
Document Dataset = openxml Document.xml
txtFee1.text = Document dataset (Fee1)
End If

The data is bound properly from the master dataset when I open an
document but won't load default data from the fee.xml file when a new
document is created.

I am assuming if I am creating a new document, I need to drop the
databinding for those fields from the document, and assign it to the
fee xml file, then switch it back. This is apparently wrong or I am
doing it wrong.

Any and all help is greatly appreciated

Thanks,
jaxmeier

[ECathell]

This is the way I do it....Some of its specific to my needs but you should
get the idea....
Private Sub bindTextBoxes()
clearbindings()
Me.mCustomerCM = BindingContext( mCustomerCollec tion)
Me.txtCustNo.Da taBindings.Add( New Binding("text", mCustomerCollec tion,
"Custno"))
Me.txtCustAbbre viation.DataBin dings.Add(New Binding("text",
mCustomerCollec tion, "CustAbbr") )
Me.txtCustShort Name.DataBindin gs.Add(New Binding("text",
mCustomerCollec tion, "CustShortName" ))
Me.txtCustName. DataBindings.Ad d(New Binding("text",
mCustomerCollec tion, "CustName") )
Me.txtCustAddre ss.DataBindings .Add(New Binding("text",
mCustomerCollec tion, "CustAddres s"))
Me.txtCustCity. DataBindings.Ad d(New Binding("text",
mCustomerCollec tion, "CustCity") )
Me.txtCustState .DataBindings.A dd(New Binding("text",
mCustomerCollec tion, "CustState" ))
Me.txtCustZip.D ataBindings.Add (New Binding("text",
mCustomerCollec tion, "CustZip"))
Me.txtCustMfgNo .DataBindings.A dd(New Binding("text",
mCustomerCollec tion, "CustMfgNo" ))
Me.txtCustDistP ack.DataBinding s.Add(New Binding("text",
mCustomerCollec tion, "CustDistPack") )
Me.txtCustNo.Re adOnly = True

End Sub
Private Sub clearbindings()
Try
Me.txtCustNo.Re adOnly = False

Dim c As New Control

For Each c In Me.Controls
If c.GetType Is GetType(System. Windows.Forms.T extBox) Then
Console.WriteLi ne(c.Name)
c.DataBindings. Clear()
c.Text = Nothing
End If

Next
Catch ex As InvalidCastExce ption
'Catches a spurious error
Debug.WriteLine (ex.Message)

Catch ex As Exception

End Try
End Sub