Prev: VSTO Setup problem: Missing File
Next: Hashtable or Datatable?
From: Jeff B on 25 Oct 2009 17:16
Hi All,

Just wondering if someone could tell me why when i run the form that the
three text boxes that i have that I have bound to a Beds Table I can not get
to start with the text box empty? no matter what I try they always start
with a value showing. I have tried (as you can see in the code)
txtbox.clear() but that does not seem to do anything, I have tried
textbox.text = "" after the data binding but that does not work?

My Problem controls are txtBedType, txtWeekdayRate, txtWeekendRate
Any Suggestions?

Thanks very much for the help,

Jeff

Private Sub RoomsForm_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ARoomsBedsDataTier = New RoomsBedsDataTier
ACottagesDataSet = ARoomsBedsDataTier.GetCottageDataSet

ARoomsBindingSource = New BindingSource
ABedsBindingSource = New BindingSource

With ARoomsBindingSource
.DataSource = ACottagesDataSet
.DataMember = "Rooms"
.Sort = "Bedcode"
End With

With cboRooms
.DataSource = ARoomsBindingSource
.DisplayMember = "Room"
.ValueMember = "BedCode"
'.DataBindings.Add("text", ARoomsBindingSource, "Room", False,
DataSourceUpdateMode.Never) Commented out starts box empty
.SelectedIndex = -1

End With
With ABedsBindingSource
.DataSource = ACottagesDataSet
.DataMember = "Beds"
.Sort = "BedCode"
End With

txtBedType.DataBindings.Add("text", ABedsBindingSource, "BedType",
True, DataSourceUpdateMode.Never, Nothing)
txtWeekdayRate.DataBindings.Add("text", ABedsBindingSource,
"WeekdayRate", True, DataSourceUpdateMode.Never, Nothing, "c2")
txtWeekendRate.DataBindings.Add("text", ABedsBindingSource,
"WeekendRate", True, DataSourceUpdateMode.Never, Nothing, "c2")
chkJacuzzi.DataBindings.Add("CheckState", ARoomsBindingSource,
"Jacuzzi", True)
chkPrivateAccess.DataBindings.Add("CheckState", ARoomsBindingSource,
"Private Access", True)
chkFireplace.DataBindings.Add("CheckState", ARoomsBindingSource,
"FirePlace", True)

txtBedType.Clear()
txtWeekdayRate.Clear()
txtWeekendRate.Clear()



End Sub

Private Sub cboRooms_SelectionChangeCommitted(ByVal sender As Object,
ByVal e As System.EventArgs) Handles cboRooms.SelectionChangeCommitted

strBedCode = cboRooms.SelectedValue.ToString
ABedsBindingSource.Filter = "bedCode = '" & strBedCode & " ' "

End Sub

 | 
Pages: 1
Prev: VSTO Setup problem: Missing File
Next: Hashtable or Datatable?