vb.net databind combobox never lost focus?
I set up a connection to a table books of a database.
================================
table fields
ISBN,
title,
cost
=======================================
I changed the ISBN number to a combobox and dragged and dropped down the whole table in details view to the form
================================
isbn: --------|
------- ^
^
title xxxxxxx
cost xxxxxxxxx
===============================
I deleted the navigation bar at the top.
I clicked on the smart tag and selected the data bind item checkbox. then I configured the datasource,display member and selected value.
Different books can be seen by selecting different isbn from the combobox.
However,I can not move my mouse to the cost textfield or title textfield on the form. Even worse,I can not close the form.
This is so wired.
Can anyone tell me why and how to solve this problem? I will give u the credits immediatelly if ur answer is valid.
__________________________________________________________________________
''Please see the code below
Public Class DetailsForm
Private Sub bindingNavigatorSaveItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)
If Me.Validate Then
Me.BooksBindingSource.EndEdit()
Me.BooksTableAdapter.Update(Me.RnrBooksDataSet.Books)
Else
System.Windows.Forms.MessageBox.Show(Me,"Validation errors occurred. ","Save ",System.Windows.Forms.MessageBoxButtons.OK,System.Windows.Forms.MessageBoxIcon.Warning)
End If
End Sub
Private Sub DetailsForm_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
''TODO: This line of code loads data into the ''RnrBooksDataSet.Books '' table. You can move,or remove it,as needed.
Me.BooksTableAdapter.Fill(Me.RnrBooksDataSet.Books)
End Sub
End Class
_
Partial Public Class DetailsForm
Inherits System.Windows.Forms.Form
''Form overrides dispose to clean up the component list.
_
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
''Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
''NOTE: The following procedure is required by the Windows Form Designer
''It can be modified using the Windows Form Designer.
''Do not modify it using the code editor.
_ Private Sub InitializeComponent() '' ''Subject_CodeLabel '' Subject_CodeLabel.AutoSize = True Subject_CodeLabel.Location = New System.Drawing.Point(28,148) Subject_CodeLabel.Name = "Subject_CodeLabel " Subject_CodeLabel.Size = New System.Drawing.Size(83,12) Subject_CodeLabel.TabIndex = 9 Subject_CodeLabel.Text = "Subject Code: " '' ''Shelf_LocationLabel '' Shelf_LocationLabel.AutoSize = True Shelf_LocationLabel.Location = New System.Drawing.Point(28,173) Shelf_LocationLabel.Name = "Shelf_LocationLabel " Shelf_LocationLabel.Size = New System.Drawing.Size(95,12) Shelf_LocationLabel.TabIndex = 11 Shelf_LocationLabel.Text = "Shelf Location: " '' ''RnrBooksDataSet '' Me.RnrBooksDataSet.DataSetName = "RnrBooksDataSet " '' ''BooksBindingSource '' Me.BooksBindingSource.DataMember = "Books " Me.BooksBindingSource.DataSource = Me.RnrBooksDataSet '' ''BooksTableAdapter '' Me.BooksTableAdapter.ClearBeforeFill = True '' ''TitleTextBox '' Me.TitleTextBox.DataBindings.Add(New System.Windows.Forms.Binding( "Text ",Me.BooksBindingSource,"Title ",True)) Me.TitleTextBox.Location = New System.Drawing.Point(109,70) Me.TitleTextBox.Name = "TitleTextBox " Me.TitleTextBox.Size = New System.Drawing.Size(303,21) Me.TitleTextBox.TabIndex = 4 '' ''AuthorTextBox '' Me.AuthorTextBox.DataBindings.Add(New System.Windows.Forms.Binding( "Text ","Author ",True)) Me.AuthorTextBox.Location = New System.Drawing.Point(109,95) Me.AuthorTextBox.Name = "AuthorTextBox " Me.AuthorTextBox.Size = New System.Drawing.Size(303,21) Me.AuthorTextBox.TabIndex = 6 '' ''PublisherTextBox '' Me.PublisherTextBox.DataBindings.Add(New System.Windows.Forms.Binding( "Text ","Publisher ",True)) Me.PublisherTextBox.Location = New System.Drawing.Point(109,120) Me.PublisherTextBox.Name = "PublisherTextBox " Me.PublisherTextBox.Size = New System.Drawing.Size(303,21) Me.PublisherTextBox.TabIndex = 8 '' ''Subject_CodeTextBox '' Me.Subject_CodeTextBox.DataBindings.Add(New System.Windows.Forms.Binding( "Text ","Subject_Code ",True)) Me.Subject_CodeTextBox.Location = New System.Drawing.Point(109,145) Me.Subject_CodeTextBox.Name = "Subject_CodeTextBox " Me.Subject_CodeTextBox.Size = New System.Drawing.Size(303,21) Me.Subject_CodeTextBox.TabIndex = 10 '' ''Shelf_LocationTextBox '' Me.Shelf_LocationTextBox.DataBindings.Add(New System.Windows.Forms.Binding( "Text ","Shelf_Location ",True)) Me.Shelf_LocationTextBox.Location = New System.Drawing.Point(109,170) Me.Shelf_LocationTextBox.Name = "Shelf_LocationTextBox " Me.Shelf_LocationTextBox.Size = New System.Drawing.Size(303,21) Me.Shelf_LocationTextBox.TabIndex = 12 '' ''FictionCheckBox '' Me.FictionCheckBox.DataBindings.Add(New System.Windows.Forms.Binding( "CheckState ","Fiction ",True)) Me.FictionCheckBox.Location = New System.Drawing.Point(109,195) Me.FictionCheckBox.Name = "FictionCheckBox " Me.FictionCheckBox.Size = New System.Drawing.Size(104,22) Me.FictionCheckBox.TabIndex = 14 '' ''ISBNComboBox '' Me.ISBNComboBox.DataBindings.Add(New System.Windows.Forms.Binding( "Text ","ISBN ",True)) Me.ISBNComboBox.DataSource = Me.BooksBindingSource Me.ISBNComboBox.DisplayMember = "ISBN " Me.ISBNComboBox.FormattingEnabled = True Me.ISBNComboBox.Location = New System.Drawing.Point(109,45) Me.ISBNComboBox.Name = "ISBNComboBox " Me.ISBNComboBox.Size = New System.Drawing.Size(303,20) Me.ISBNComboBox.TabIndex = 2 Me.ISBNComboBox.ValueMember = "ISBN " '' ''TextBox1 '' Me.TextBox1.Location = New System.Drawing.Point(157,211) Me.TextBox1.Name = "TextBox1 " Me.TextBox1.Size = New System.Drawing.Size(199,21) Me.TextBox1.TabIndex = 15 '' . . End Class __________________________________________________________________________
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
