قمت بكتابة كود يقوم باضافة كموبوكس داخل داتا جريد ويتم ملي الكموبوكس من جدول في قاعدة بيانات ولا توجد مشكلة فى ملي الكموبوكس
المشكلة ان اقوم بالتعديل فى الكموبوكس لاقوم بعمل تصفية للبيانات لسهولة الاختيار قمت بالبحث وحصلت على هذا الكود لكن يعطني خطا وفي نفس الوقت لا يقوم بعمل تصفية للبيانات فهل من حل
كود اضافة الكمبوبكس في داتا جريد
وهذا كود تعديل البيان فى الكومبوبكس لكن يعطي خطا اثناء التشغيل
المطلوب فتح امكانية التعديل لعمل تصفية للبيانات الموجودة فى الكمبوبوكس ولكم جزيل الشكر
المشكلة ان اقوم بالتعديل فى الكموبوكس لاقوم بعمل تصفية للبيانات لسهولة الاختيار قمت بالبحث وحصلت على هذا الكود لكن يعطني خطا وفي نفس الوقت لا يقوم بعمل تصفية للبيانات فهل من حل
كود اضافة الكمبوبكس في داتا جريد
PHP كود :
Dim colProductIdCombo As New System.Windows.Forms.DataGridViewComboBoxColumn()
colProductIdCombo.DataSource = ds.Tables("Books")
colProductIdCombo.DisplayMember = "BookName"
colProductIdCombo.ValueMember = "IdBook"
colProductIdCombo.DataPropertyName = "BookId"
colProductIdCombo.HeaderText = "الاصنـــــــاف"
colProductIdCombo.Width = 100
colProductIdCombo.DisplayStyle = DataGridViewComboBoxDisplayStyle.Nothing
colProductIdCombo.ReadOnly = False
' colProductIdCombo.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
DataGridView1.Columns.Add(colProductIdCombo)
وهذا كود تعديل البيان فى الكومبوبكس لكن يعطي خطا اثناء التشغيل
PHP كود :
Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
If DataGridView1.CurrentCellAddress.X = colProductIdCombo.DisplayIndex Then
Dim cb As ComboBox = TryCast(e.Control, ComboBox)
If cb IsNot Nothing Then
cb.DropDownStyle = ComboBoxStyle.DropDown
End If
End If
End Sub
PHP كود :
Private Sub DataGridView1_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
If DataGridView1.CurrentCellAddress.X = colProductIdCombo.DisplayIndex Then
If Not colProductIdCombo.Items.Contains(e.FormattedValue) Then
colProductIdCombo.Items.Add(e.FormattedValue)
End If
End If
End Sub
المطلوب فتح امكانية التعديل لعمل تصفية للبيانات الموجودة فى الكمبوبوكس ولكم جزيل الشكر