[تركي قرمزلي]

السلام عليكم و رحمة الله و بركاته
إخواني عندي أداة combobox مرتبطة بقاعدة بيانات و أريد أن يكون العنصر المختار هو الموجود في textbox فكتبت الكود التالي :
combo1.selecteditem=text1.text
و لكن لم يتحرك ، على الرغم من وجود العنصر المكتوب في التيكست في قائمة الكومبو
جربت نفس الكود على combobox غير مرتبط بقاعدة بيانات فاشتغل بكفاءة
السؤال كيف يمكن عمل ذلك (على كومبو مرتبط بقاعدة بيانات)
و شكرا للجميع

[amgadtamer]

في اي حدث وضعت الكود

[kslawy]

يجب أن يتطابق النصان في أداتي الـ Textbox و Combobox حتى يتم الاختيار التلقائي
جرب وضع الكود أعلاه في حدث الخروج من الـ Textbox

[تركي قرمزلي]

kslawy كتب :يجب أن يتطابق النصان في أداتي الـ textbox و combobox حتى يتم الاختيار التلقائي
جرب وضع الكود أعلاه في حدث الخروج من الـ textbox

جربت في حدث الخروج من text و لكن دون فائدة ، النصان متطابقان بكل تاكيد

[سيف الدين عزيز]

اخي قم بالضغط مرتين على combobox وقم بوضع الكود هنالك

[kslawy]

أبو أسامة تركي كتب :جربت في حدث الخروج من text و لكن دون فائدة ، النصان متطابقان بكل تاكيد

نعم صحيح ولكن عند استبدال Selecteditem بـ text يتم اختيار النص . عدل كودك ليصبح :

كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text <> "" Then
            If ComboBox1.Items.Count > 0 Then
                ComboBox1.Text = TextBox1.Text.Trim
            End If
        End If
    End Sub

*****
****
***
**
*

[amgadtamer]

الموضوع ببساطة عند قيامك بربط ال combobox قم باسناد ال value member الى الحقل المراد عرضه فى ال textbox
بمعنى

PHP كود :

combobox1.datasource =dataset
combobox1.displaymember="name"
combobox1.valuememeber="name"

ثم قم قم بكتابة هذا الكود

Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
        TextBox1.Text = Me.ComboBox1.SelectedValue.ToString
    End Sub 


[تركي قرمزلي]

kslawy كتب :نعم صحيح ولكن عند استبدال Selecteditem بـ text يتم اختيار النص . عدل كودك ليصبح :

كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text <> "" Then
            If ComboBox1.Items.Count > 0 Then
                ComboBox1.Text = TextBox1.Text.Trim
            End If
        End If
    End Sub

*****
****
***
**
*

شكرا لك اخي تمت التجربة بنجاح
شكرا للجميع على التفاعل