06-07-18, 01:37 AM
وعليكم السلام ورحمة الله وبركاته
بخصوص منطقة الكود ComboBox1_KeyDown
قم باستدبال محتوى الكود بهذا الكود
كود :
Me.ComboBox2.Items.Clear()
Me.ComboBox2.ResetText()
If e.KeyCode = Keys.Enter Then
Me.T2BindingSource.Filter = "nom Like '%" & Me.ComboBox1.Text & "%'"
For fil As Integer = 0 To Me.T2BindingSource.Count - 1
Me.ComboBox2.Items.Add(Me.T2BindingSource(fil)("nom"))
Me.ComboBox2.AutoCompleteMode = AutoCompleteMode.SuggestAppend
Me.ComboBox2.AutoCompleteSource = AutoCompleteSource.ListItems
Next
End Ifوروح اختار من ComboBox1 اى اسم واضغط Enter
وستجد ComboBox2 تم تعبئته بنائاً على الفلتر
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
