ما هو الحل لـ Cannot bind to the new value member

[m.aljoul 7]

السلام عليكم

عندي عنصر كومبو بوكس أقوم بتعبئته بعناصر من جدول من قاعدة بيانات أثناء فتح الفورم وأيضاً أقوم بتعبئة 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

أرجو المساعدة حيث أني لم أجد أي جواب مساعد وهذه أول مرة تعترضني مشكلة من هذا النوع!

[m.aljoul 7]

أرجو من المختصين إفادتي بإجابة شافية بارك الله بكم

[m.aljoul 7]

?

[VB Helper 751]

السلام عليكم ورحمه الله وبركاته

اخي تأكد ان قيمه المتغيرين Dm و Vm هما Act_ID و Act_Ar

[Dr Sayed 1,030]

السلام عليكم ورحمة الله وبركاته

جملة الاستعلام التى كتبتها لا تحتوى إلا على عمود واحد يحتوى على الآى دى زائد الاسم العربى بتسمية العمود الناتج باسم cat ولكن هذه الجملة

لا تحتوى على عمود Act_ID لذلك أعتقد أن الجملة يجب أن تكون هكذا

 

Select Act_ID, Act_ID & '.' & Act_Ar As Cat From TblActivities Where Cat_ID= 38 Order By Act_Ar