Ali_Prodes
دوشنبه 24 اسفند 1388, 15:07 عصر
با سلا م دوستان
نحوه ست کردن Sp به DataCombo چگونه است؟
DbConnection.List_Load_Delete_Language 1, 0, 0, 0, 1, 1
If DbConnection.rsList_Load_Delete_Language.RecordCou nt > 0 Then
Set cbo_Select_Language.DataSource = DbConnection
Set cbo_Select_Language.RowSource = DbConnection
cbo_Select_Language.DataMember = "List_Load_Delete_Language"
cbo_Select_Language.RowMember = "List_Load_Delete_Language"
If str_Current_Language = "Persian_Lang_Text" Then
cbo_Select_Language.DataField = "Persian_Lang_Text"
''' cbo_Select_Language.BoundText = "Persian_Lang_Text"
cbo_Select_Language.BoundColumn = "Lang_Code"
cbo_Select_Language.ListField = "Persian_Lang_Text"
ElseIf str_Current_Language = "English_Lang_Text" Then
cbo_Select_Language.DataField = "English_Lang_Text"
''' cbo_Select_Language.BoundText = "English_Lang_Text"
cbo_Select_Language.BoundColumn = "Lang_Code"
cbo_Select_Language.ListField = "English_Lang_Text"
End If
Set cbo_Select_Language.RowSource = DbConnection
End If
با تشکر
هنگام انتخاب Combo با خطای Binding Collection Error مواجه می شوم.
نحوه ست کردن Sp به DataCombo چگونه است؟
DbConnection.List_Load_Delete_Language 1, 0, 0, 0, 1, 1
If DbConnection.rsList_Load_Delete_Language.RecordCou nt > 0 Then
Set cbo_Select_Language.DataSource = DbConnection
Set cbo_Select_Language.RowSource = DbConnection
cbo_Select_Language.DataMember = "List_Load_Delete_Language"
cbo_Select_Language.RowMember = "List_Load_Delete_Language"
If str_Current_Language = "Persian_Lang_Text" Then
cbo_Select_Language.DataField = "Persian_Lang_Text"
''' cbo_Select_Language.BoundText = "Persian_Lang_Text"
cbo_Select_Language.BoundColumn = "Lang_Code"
cbo_Select_Language.ListField = "Persian_Lang_Text"
ElseIf str_Current_Language = "English_Lang_Text" Then
cbo_Select_Language.DataField = "English_Lang_Text"
''' cbo_Select_Language.BoundText = "English_Lang_Text"
cbo_Select_Language.BoundColumn = "Lang_Code"
cbo_Select_Language.ListField = "English_Lang_Text"
End If
Set cbo_Select_Language.RowSource = DbConnection
End If
با تشکر
هنگام انتخاب Combo با خطای Binding Collection Error مواجه می شوم.