BUG: خاصية DBCombo SelectedItem هو غير المحدثة عند يمكنك كتابة التحديد

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

281940
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الأعراض
عند استخدام ميزات البحث للأمام من خلال نوع عنصر التحكم DBCombo من DBList32.ocx لا يتم تحديث الخاصية SelectedItem ثم DBCombo لا يعكس الإدخال المطابق يتم العثور عليها.
الحل
يتوفر الآن إصلاح معتمد من Microsoft ولكن الغرض منه هو حل المشكلة الموضحة في هذه المقالة فقط. تطبيقه فقط على أجهزة الكمبيوتر التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح. ولذلك، إذا لم يكن تأثير هذه المشكلة كبيرًا، توصي Microsoft بالانتظار حتى الإصدار التالي من حزمة الخدمة Visual Studio الذي يحتوي على هذا الإصلاح.

لحل هذه المشكلة فورًا، اتصل منتجات Microsoft "خدمات الدعم" للحصول على الإصلاح. للحصول على قائمة كاملة بأرقام الهاتف خدمات دعم منتجات Microsoft وعلى معلومات حول تكاليف الدعم، قم بزيارة موقع Microsoft التالي على الويب:ملاحظة: في بعض الحالات، قد يتم إلغاء المصروفات التي تُحتسب عادةً على مكالمات الدعم إذا قرر إخصائي الدعم لدى Microsoft أن تحديثًا معينًا سوف يعمل على حل المشكلة. سيتم تطبيق تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشكلات التي لا يعمل على حلها هذا التحديث.

ملاحظة: يجب أن يكون لديك اتفاقية ترخيص Visual Studio للحصول على هذا الإصلاح.

تصريح
أقرت Microsoft أن هذا خطأ في Microsoft المنتجات المسردة في بداية هذه المقالة.
معلومات أخرى
حدد عنصراً في جزء القائمة DBCombo عنصر التحكم، تحتوي الخاصية SelectedItem على الإشارة مرجعية التي يمكنك استخدامها لتغيير موضع السجل المحدد في Recordset التحكم بيانات يحدد خاصية مصدر_الصف. يجب تحديث هذه الخاصية ما إذا كان المستخدم يستخدم ماوس أو لوحة المفاتيح لتحديد العنصر. وبالتالي، عند استخدام ميزة البحث للأمام من خلال نوع عنصر التحكم هذا تتوقع تحديث الخاصية SelectedItem بعد كتابة اسم يطابق اسم في القائمة ثم اضغط المفتاح ENTER. بالإضافة إلى ذلك، يجب أن تعكس النص في DBCombo الإدخال المطابق يتم العثور عليها. ومع ذلك، لا تعمل هذه الوظيفة عند استخدام القياسية تحرير وسرد ربط بيانات "و" التحكم "بيانات مضمن" المرفقة مع Visual Basic 6.0.

خطوات إعادة إنشاء السلوك

  1. إنشاء مشروع EXE قياسي جديد. يتم إنشاء Form1 بشكل افتراضي.
  2. من القائمة المشروع انقر فوق مكونات حدد خانة الاختيار البيانات منضم قائمة عناصر 6.0 ومن ثم انقر فوق موافق.
  3. إضافة السرد والتحرير "ربط بيانات ، DBCombo1 ، Form1.
  4. إضافة مربع نص عنصري ، النص1 و النص2.
  5. إضافة عنصر تحكم بيانات Data1.
  6. قم بتكوين إعدادات خصائص عناصر التحكم هذه كما يلي:
    Data1 - التحكم بيانات
    DatabaseName = Biblio.mdb
    مصدر_الصف = كتاب
    ReadOnly = True

    النص2 - عنصر تحكم مربع نص
    DataSource = Data1
    DataField = الكاتب
    مرئية = خطأ

    DBCombo1 - تحرير وسرد ربط بيانات عنصر التحكم
    مصدر_الصف = Data1
    ListField = الكاتب
  7. قم بإضافة التعليمات البرمجية التالية إلى المقطع Declarations عام Form1:
    Option ExplicitPrivate Const UP_ARROW = 38Private Const DOWN_ARROW = 40    Private Sub Data1_Reposition()   '   ' Copy Text from Bound Text2 to Unbound Text1.   Text1.Text = Text2.TextEnd 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 IfEnd SubPrivate Sub Form_Load()   Text1.Text = ""   DBCombo1.Text = ""End Sub					
  8. قم بتشغيل المشروع ثم اكتب اسم الذي يتطابق مع إدخال في عنصر تحكم منضم DBCombo (مثل Curry Dave).
  9. اضغط ENTER. لاحظ عدم تحديث الخاصية DBCombo1.SelectedItem.
  10. قم بإلغاء تحديد النص في DBCombo ثم اكتب اسم يطابق أحد الإدخالات في القائمة (مثل Wellin ملك).
  11. اضغط مفتاح "سهم لأعلى" أو "سهم لأسفل. لاحظ انه يتم تحديث DBCombo1.SelectedItem مع الإشارة المرجعية لـ "Wellin ملك".

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 281940 - آخر مراجعة: 02/28/2014 04:23:58 - المراجعة: 3.2

  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • kbnosurvey kbarchive kbmt kbbug kbcodesnippet kbctrl kbpending kbprb KB281940 KbMtar
تعليقات