• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'cannot bind to the new value member'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 1 نتيجة

  1. السلام عليكم عندي عنصر كومبو بوكس أقوم بتعبئته بعناصر من جدول من قاعدة بيانات أثناء فتح الفورم وأيضاً أقوم بتعبئة Checkbox list أيضاً من جدول آخر بقاعدة البيانات وكان كل شيء يعمل بدون مشاكل ولكن عندما قمت بتغيير جملة الاستعلام للكومبو بوكس من" MyMod.Me_CboFill(Me.CboAct, "Select * From TblActivities Where Cat_ID= 38 Order By Act_Ar", "Act_Ar", "Act_ID") إلى: MyMod.Me_CboFill(Me.CboAct, "Select Act_ID & '.' & Act_Ar As Cat From TblActivities Where Cat_ID= 38 Order By Act_Ar", "Cat", "Act_ID") ظهرت المشكلة وهي أنه تم تعبئة الكومبو بوكس ولكن لم تتم تعبئة الـ Checkbox list ويعطيني رسالة الخطأ: Cannot bind to the new value member وفيما يلي كود دالة التعبئة لل Checkbox list: Public Sub Me_ChkFill(ByVal Chk As CheckedListBox, ByVal Sql As String, ByVal Dm As String, ByVal Vm As String) Chk.DataSource = Nothing Dim Da As New OleDbDataAdapter(Sql, Conn) Dim Dt As New DataTable Da.Fill(Dt) If Dt.Rows.Count = 0 Then Exit Sub Chk.DataSource = Dt Chk.DisplayMember = Dm Chk.ValueMember = Vm End Sub وفيما يلي كود دالة التعبئة للكومبو بوكس: Public Sub Me_CboFill(ByVal Cbo As ComboBox, ByVal Sql As String, ByVal Dm As String, ByVal Vm As String) Cbo.DataSource = Nothing Dim Da As New OleDbDataAdapter(Sql, Conn) Dim Dt As New DataTable Da.Fill(Dt) If Dt.Rows.Count = 0 Then Exit Sub Cbo.DataSource = Dt Cbo.DisplayMember = Dm Cbo.ValueMember = Vm End Sub أرجو المساعدة حيث أني لم أجد أي جواب مساعد وهذه أول مرة تعترضني مشكلة من هذا النوع!