Hata: DBCombo SelectedItem özelliği, seçim türü, güncelleştirilmiyor

Makale çevirileri Makale çevirileri
Makale numarası: 281940 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Bu Sayfada

Belirtiler

DBList32.ocx DBCombo Denetim türü önceden arama özelliklerini kullandığınız zaman, SelectedItem özelliği güncelleştirilmez ve DBCombo bulunan eşleşen giriş yansıtmaz.

Çözüm

Microsoft desteklenen bir düzeltme yayımlamıştır, ancak yalnızca bu makalede açıklanan sorunu gidermesi amaçlanmaktadır. Düzeltmeyi yalnızca bu sorunla karşılaşmış olan bilgisayarlara uygulayın. Bu düzeltmeye ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi olarak, Microsoft, bu düzeltmeyi içeren bir sonraki Visual Studio hizmet paketini beklemenizi önerir.

Bu sorunun derhal çözülmesini sağlayacak düzeltmeyi edinmek için Microsoft Ürün Destek Hizmetleri'ne başvurun. Microsoft Ürün Destek Hizmetleri'nin telefon numaralarının tam listesi ve destek ücretleriyle ilgili bilgi için, aşağıdaki Microsoft Web sitesini ziyaret edin:
http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
Not: Microsoft Destek Uzmanı özel bir güncelleştirmenin sorununuzu çözümleyeceğini belirlerse, destek aramaları için çözümleyeceğini giderler özel durumlarda, iptal edilebilir. Söz konusu güncelleştirme ile ilgili olmayan ek destek soruları ve sorunlar için normal destek ücretleri geçerlidir.

Not: Bu düzeltmeyi edinmek üzere Visual Studio'nun Lisans Sözleşmesi olması gerekir.

Durum

Microsoft, Microsoft bir hata olduğunu onaylamıştır bu makalenin başında listelenen ürünlerden.

Daha fazla bilgi

Bir DBCombo liste bölümünde bir madde seçin, Denetim seçili kaydı RowSource özelliğini belirten veri denetimini, Recordset içinde yeniden konumlandırmak için kullanabileceğiniz bir yer işareti SelectedItem özelliği içerir. Bu özellik, kullanıcı öğeyi seçmek için fare veya klavyeyi kullanılıp kullanılmayacağını güncelleştirilmelidir. Bu nedenle, bu denetimin türü önceden arama özelliğini kullandığınızda, listeden bir adı ile eşleşen bir ad yazın ve ENTER tuşuna basın sonra SelectedItem özelliği güncelleştirildi bekler. Buna ek olarak, metinde DBCombo bulunan eşleşen giriş yansıtmalıdır. Ancak, Visual Basic 6. 0'la birlikte standart veri sınırlama açılır ve sevk ıntrinsic veri denetimini kullandığınızda bu işlevi çalışmaz.

Davranışı yeniden oluşturma adımları

  1. Yeni standart exe DOSYASı) projesi oluşturun. Varsayılan olarak, Form1 oluşturulur.
  2. Project menüsünden bileşenleri ' ni tıklatın, sonra da <a0>veri bağlama liste denetimleri 6.0</a0> onay kutusunu seçin ve Tamam ' ı tıklatın.
  3. Veri sınırlama birleşik giriş (DBCombo1, Form1'e ekleyin.
  4. Iki TextBox, Metin1 ve Metin2 ekleyin.
  5. Bir veri denetimi Veri1 ekleyin.
  6. Bu denetim özellik ayarları aşağıdaki gibi yapılandırın:
    Veri1 - veri denetimi
    Veritabanı adı Biblio.mdb =
    RowSource Authors =
    ReadOnly = true

    Metin2 - TextBox denetimi
    DataSource Veri1 =
    DataField yazar =
    Görünür = false

    DBCombo1 - veri sınırlama açılan denetimi
    RowSource Veri1 =
    ListField yazar =
  7. Form1 genel Tanımlamalar bölümüne aşağıdaki kodu ekleyin:
    Option Explicit
    
    Private Const UP_ARROW = 38
    Private Const DOWN_ARROW = 40
        
    Private Sub Data1_Reposition()
       '
       ' Copy Text from Bound Text2 to Unbound Text1.
       Text1.Text = Text2.Text
    End Sub
        
    Private Sub DBCombo1_KeyUp(KeyCode As Integer, Shift As Integer)
       Dim bmk As Variant
       Dim x As Integer
       Dim msg As String
    
       On Error GoTo ErrHandler
       '
       ' Save Bookmark on CR and Arrow Key Activity.
       Select Case KeyCode
          Case Asc(vbCr), UP_ARROW, DOWN_ARROW
              msg = "DBCombo1.SelectedItem has the value "
              bmk = DBCombo1.SelectedItem
              ' The next line raises error 13 if bmk has no value.
              For x = 0 To UBound(bmk)
                  msg = msg & bmk(x)
              Next x
              Data1.Recordset.Bookmark = bmk
              Debug.Print msg
       End Select
       Exit Sub
                
    ErrHandler:
       If Err.Number = 13 Then   ' Type mismatch
          Debug.Print "DBCombo1.SelectedItem is not assigned a value."
       Else
          MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical _
             + vbOKOnly
       End If
    End Sub
    
    Private Sub Form_Load()
       Text1.Text = ""
       DBCombo1.Text = ""
    End Sub
    					
  8. Projeyi çalıştırın ve bir giriş (örneğin, Curry, Dave) bağımlı DBCombo denetimi uyan bir ad yazın.
  9. Enter tuşuna basın. DBCombo1.SelectedItem özelliği güncelleştirildi dikkat edin.
  10. DBCombo metni temizleyin ve bir giriş (örneğin, Wellin, Paul) listesinde eşleşen bir ad yazın.
  11. YUKARı OK veya AŞAĞı OK tuşuna basın. DBCombo1.SelectedItem "Wellin için Paul" yer işareti ile güncelleştirildi dikkat edin.

Özellikler

Makale numarası: 281940 - Last Review: 24 Şubat 2014 Pazartesi - Gözden geçirme: 3.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 6.0 Learning Edition
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbbug kbcodesnippet kbctrl kbpending kbprb KB281940 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:281940

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com