combobox 항목에 텍스트 상자를 바인딩

Question

데이터 테이블에 2 개의 열이 있으며 둘 다 콤보 상자 (여러 열 드롭 다운 목록)의 드롭 다운 목록에 표시됩니다. 이제는 하나의 열을 콤보 박스에 표시하고 다른 열은 texbox에 표시하려고합니다 (데이터 바인딩 사용). 코드는 작동하지만 1 문제 - 폼이 열리고 텍스트 상자가 비어있을 때 combobox.selectedIndex -1을 갖기를 원합니다. 콤보 박스는 문제가 아니지만 Texbox는 텍스트를 지울 수 없습니다. 여기 내 코드는 다음과 같습니다.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

     Dim SQL As String = "SELECT Name,Surname from MyTable" 

     Dim dtb As New DataTable() 
     dtb.Columns.Add("Name", System.Type.GetType("System.String")) 
     dtb.Columns.Add("Surname", System.Type.GetType("System.String")) 

     Using con As OracleConnection = New OracleConnection("Data Source=MyDB;User Id=Lucky;Password=MyPassword;") 

      Try 

       OraclePovezava.Open() 

       Using dad As New OracleDataAdapter(SQL, con) 
        dad.Fill(dtb) 

       End Using 

       Combobox1.DataSource = dtb 
       Combobox1.DisplayMember = "Surname" 
       Combobox1.AutoCompleteMode = AutoCompleteMode.Suggest 
       Combobox1.AutoCompleteSource = AutoCompleteSource.ListItems 
       con.Close() 

      Catch ex As Exception 
       'MessageBox.Show(ex.Message) 
      Finally 
       con.Dispose() 
      End Try 

      TextBox1.DataBindings.Add("Text", dtb, "Name") 
      Combobox1.SelectedIndex = -1 

     End Using 

    End Sub 

이 코드는 폼의로드 이벤트에서 볼 수 있습니다. If 문을 사용하여 Combobox.SelectedIndexChanged 이벤트에서 Textbox 데이터 바인딩을 시도했지만 작동하지 않았습니다.

P .: 원하는 출력은 사용자가 콤보 박스에서 일부 항목을 선택하면 두 열 값 모두가 콤보 상자 &에 표시됩니다. 표시되는 코드는 작동하지만 텍스트 상자는 양식로드시 콤보 상자처럼 비워 둘 수 없습니다.

제안 사항?

Answer 1

원본 데이터 테이블에는 빈 데이터가있는 레코드가 없으므로 텍스트 상자는 항상 데이터가있는 레코드 중 하나에 바인딩됩니다. 데이터 바인딩 대신 간단한 이벤트 처리기를 사용하여 구현할 것입니다.

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 
    If ComboBox1.SelectedItem Is Nothing Then 
     TextBox1.Text = "" 
    Else 
     TextBox1.Text = CStr(CType(ComboBox1.SelectedItem, DataRowView)("Name")) 
    End If 
End Sub