कॉम्बोबॉक्स टेक्स्ट सामग्री प्राप्त करें और टेक्स्टबॉक्स पर जाएं

एक कॉम्बोबॉक्स में आबादी वाले 100+ मानों में से एक चयनित स्ट्रिंग मान प्राप्त करने का एक तरीका ढूंढ रहे हैं। डीबी से इच्छित मूल्य प्राप्त करने के लिए डिज़ाइन किए गए फ़ंक्शन के नीचे और मूल्य वापस कॉम्बोबॉक्स में वापस करें।

Public Function popuList(Optional dt As DataTable = Nothing)
    Dim daParties As New OleDb.OleDbDataAdapter("SELECT party_ID, party_Name FROM tbl_Parties ORDER BY party_Name;", connKMVTDB)
    Dim dsParties As New DataSet
    Dim dtParties As New DataTable

    daParties.Fill(dsParties, "party_Name")
    dtParties = dsParties.Tables(0)

    Return dtParties
End Function

जैसा कि उम्मीद है कि नीचे की घटना भी ठीक काम करती है।

Private Sub btnPartyLOV_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles btnPartyLOV.Click
    If cmbPartiesList.Visibility = Windows.Visibility.Visible Then
        cmbPartiesList.Visibility = Windows.Visibility.Hidden
    Else
        Dim dtParties As DataTable
        dtParties = popuList()

        cmbPartiesList.ItemsSource = dtParties.DefaultView
        cmbPartiesList.DisplayMemberPath = dtParties.Columns(1).ToString
        cmbPartiesList.SelectedValuePath = dtParties.Columns(0).ToString

        cmbPartiesList.Visibility = Windows.Visibility.Visible
        'cmbPartiesList.SelectedIndex = 0
    End If
End Sub

लेकिन कॉम्बोबॉक्स से चयनित टेक्स्ट वैल्यू को अन्य टेक्स्टबॉक्स पर कैसे प्राप्त करें? नीचे कोशिश की और अटक गया ...

Private Sub cmbPartiesList_SelectionChanged(sender As Object, e As System.Windows.Controls.SelectionChangedEventArgs) Handles cmbPartiesList.SelectionChanged
    Dim selItem As String = DirectCast(cmbPartiesList.SelectedItem, ComboBoxItem).Content.ToString()

    MsgBox(selItem)
    lblID.Content = cmbPartiesList.SelectedValue
    txtAdd1.Text = cmbPartiesList.DisplayMemberPath
    cmbPartiesList.Visibility = Windows.Visibility.Hidden
End Sub

मैं बार-बार त्रुटि प्राप्त करता हूं ...

टाइप करने के लिए 'System.Data.DataRowView' प्रकार की ऑब्जेक्ट डालने में असमर्थ   'System.Windows.Controls.ComboBoxItem'

Here stranded for a long time and any help will be highly appreciated & praised.

0
जोड़ा संपादित
विचारों: 1
मुझे लगता है कि आप cmbPartiesList का चयन नहीं कर सकते हैं। कॉम्बोबॉक्स Item के लिए चयनित Item
जोड़ा लेखक har07, स्रोत

2 उत्तर

मैंने मैथ्यू को बिना किसी प्रयोग के कोशिश की। देखो ...

Private Sub cmbPartiesList_SelectionChanged(sender As Object, e As System.Windows.Controls.SelectionChangedEventArgs) Handles cmbPartiesList.SelectionChanged
    Dim drv As DataRowView = cmbPartiesList.SelectedItem
    txtPName.Text = drv.Item(1).ToString()
End Sub

यह मेरी समस्या, त्रुटि, संदेह, आदि हल यहां मैंने इस कॉल के दौरान पारित होने वाली वर्तमान पंक्ति वस्तुओं को संग्रहीत करने के लिए DataRowView क्लास बनाया है। नतीजा एक पंक्ति के रूप में एकत्रित किया जाता है और उन्हें आइटम ऑब्जेक्ट के साथ विभाजित किया जाता है, जो अनिवार्य रूप से अंतर्निहित परिणामों का खुलासा करता है।

किसी भी तरह, आपके समय के लिए धन्यवाद। उपर्युक्त पर किसी भी सुझाव/सुधार/संशोधन/सुधार/आलोचनाओं की अत्यधिक सराहना की जाती है।

0
जोड़ा

याद रखें ... ToString() आपका मित्र है!

यह उतना आसान है जितना:

Private Sub cmbPartiesList_SelectionChanged(sender As Object, e As System.Windows.Controls.SelectionChangedEventArgs) Handles cmbPartiesList.SelectionChanged
    Dim selItem As String = cmbPartiesList.SelectedItem.ToString()
    MsgBox(selItem)

    lblID.Content = cmbPartiesList.SelectedValue
    txtAdd1.Text = cmbPartiesList.DisplayMemberPath
    cmbPartiesList.Visibility = Windows.Visibility.Hidden
End Sub
0
जोड़ा