10-09-21, 06:45 PM
سؤالي هو في عمود معين في داتا جريد فيو اريد عند كتابة اسم مادة او جزء من اسم مادة يظهر قائمة منسدلة بجميع المواد التي تحتوي على الكلمة المدخلة
10-09-21, 06:45 PM
10-09-21, 11:09 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم ابو انس
ماتسأل عنه هو تماما AutoComplete للخلية التي تكتب فيها اسم المنتج ولكن هنا يجب الانتباه الى انك ستكتب كلمة واحدة على الاقل اي ليس حرف ... في المثال التالي فيه داتاغرايد فيو فيها عمودين الاول اكتب اي شيئ والثاني ستكتب اسم منتج من الامنتجات الموجودة في الجدول وهي احدى الكلمات التالية :
Mouse
Keyboard
Screen
وعند الكتابة ستظهر قائمة تحتوي على كل المنتجات الحاوية على الاسم الذي كتبته
بالتوفيق ان شاء الله
اخي الكريم ابو انس
ماتسأل عنه هو تماما AutoComplete للخلية التي تكتب فيها اسم المنتج ولكن هنا يجب الانتباه الى انك ستكتب كلمة واحدة على الاقل اي ليس حرف ... في المثال التالي فيه داتاغرايد فيو فيها عمودين الاول اكتب اي شيئ والثاني ستكتب اسم منتج من الامنتجات الموجودة في الجدول وهي احدى الكلمات التالية :
Mouse
Keyboard
Screen
وعند الكتابة ستظهر قائمة تحتوي على كل المنتجات الحاوية على الاسم الذي كتبته
بالتوفيق ان شاء الله
11-09-21, 06:28 AM
شكرا اخي ابراهيم
وإلى الأمام دوما
الكل يستفيد منك في المنتدى
لدي تعديل بسيط فقط على الكود
وهو عندما تكتب ايضا في خانة Number
تظهر نفس القائمة المنسدلة التابعة لخانة Itm_Name
لذلك لو اظيف هذا التعديل اظن انه سيحل المشكلة
وإلى الأمام دوما
الكل يستفيد منك في المنتدى
لدي تعديل بسيط فقط على الكود
وهو عندما تكتب ايضا في خانة Number
تظهر نفس القائمة المنسدلة التابعة لخانة Itm_Name
لذلك لو اظيف هذا التعديل اظن انه سيحل المشكلة
كود :
Private Sub DataGridView1_EditingControlShowing_1(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
Dim column As Integer = DataGridView1.CurrentCell.ColumnIndex
Dim headerText As String = DataGridView1.Columns(column).HeaderText
Dim Txt As TextBox = TryCast(e.Control, TextBox)
If headerText.Equals("Itm_Name") Then
If Txt IsNot Nothing Then
Txt.AutoCompleteMode = AutoCompleteMode.SuggestAppend
Txt.AutoCompleteCustomSource = AutoCompleteLoad()
Txt.AutoCompleteSource = AutoCompleteSource.CustomSource
End If
Else
If Txt IsNot Nothing Then
Txt.AutoCompleteMode = AutoCompleteMode.None
Txt.AutoCompleteCustomSource = Nothing
End If
End If
End Sub11-09-21, 07:32 PM
وعليكم السلام ورحمة الله وبركاته
ماشاء الله مبدعين ..هذا ما اريده بالضبط
شكرا لكم
ماشاء الله مبدعين ..هذا ما اريده بالضبط
شكرا لكم
13-09-21, 12:40 AM
السلام عليكم ورحمة الله وبركاته
بارك الله بكم جميعا اسرة واحدة تتعاون في حل المشكلات البرمجية