[VB.NET]vb.net databind combobox never lost focus?

前端之家收集整理的这篇文章主要介绍了[VB.NET]vb.net databind combobox never lost focus?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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 __________________________________________________________________________

猜你在找的VB相关文章