从组合框中选择项目时向文本框中添加新数据

Question

从combobox中选择项目后，如何在自动输入textbox后自动输入一个数字到。我所知道要做的就是从combobox到textbox的数据。但是我想要做的是在选择项目后将数据添加到textbox。

这是我的代码：

Imports System.Data.OleDb 
Imports System.Data 

Public Class voting1 

Dim con As New OleDbConnection 
Dim Com As New OleDbCommand 
Dim ComInsert As New OleDbCommand 
Dim ComUpdate As New OleDbCommand 
Dim ComDelete As New OleDbCommand 
Dim aAdapter As New OleDbDataAdapter 
Dim Dset As New DataSet 

Private Sub voting1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    Dim ConProvider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=J:\EvS\EVS.accdb" 
    Try 

     Try 
      con.ConnectionString = ConProvider 
      If Not con.State = ConnectionState.Open Then 
       con.Open() 
      End If 

     Catch ex As Exception 
      MsgBox("No Connection Established") 
     End Try 

     Me.fill() 

     user.Visible = False 
     user.Text = Form1.usertxt.Text 

    Catch ex As Exception 

    End Try 

End Sub 

Private Sub fill() 

    With aAdapter 
     .SelectCommand = New OleDb.OleDbCommand() 
     .SelectCommand.CommandText = "select * from candidate" 
     .SelectCommand.Connection = con 
    End With 
    Dim dataRead As OleDb.OleDbDataReader 
    dataRead = aAdapter.SelectCommand.ExecuteReader() 

    While (dataRead.Read()) 
     presbox.Items.Add(dataRead("President")) 
     vpbox.Items.Add(dataRead("VicePresident")) 
     secbox.Items.Add(dataRead("Secretary")) 
     treasbox.Items.Add(dataRead("Treasurer")) 
    End While 
    aAdapter.Dispose() 
End Sub 

Public Sub Initialize() 
    Try 
     If Not con.State = ConnectionState.Open Then 
      con.Open() 
     End If 
    Catch ex As System.Exception 
     MsgBox(ex.Message, MsgBoxStyle.Information, "ERROR CONNECTION") 

    End Try 
End Sub 

Private Sub bo() 
     Dim con1 As New OleDbConnection 
     Dim cmd As New OleDbCommand 
     con1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=J:\EvS\EVS.accdb" 
     cmd.Connection = con1 
     con1.Open() 
     Dim num As Integer 
    cmd.CommandText = "SELECT pres1 FROM vote1" 
     If IsDBNull(cmd.ExecuteScalar) Then 
      num = 1 
      samp.Text = num 
     Else 
      num = 1 
      samp.Text = num 
     End If 
     cmd.Dispose() 
     con1.Close() 
    con1.Dispose() 
End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Try 
     Call Initialize() 

     If presbox.Text = "" Or vpbox.Text = "" Or secbox.Text = "" Or treasbox.Text = "" Then 

      MsgBox("All Fields are required, Check the fields", MsgBoxStyle.Information, "Required Fiels") 
      Exit Sub 
     End If 

     With aAdapter 
      .SelectCommand = New OleDb.OleDbCommand() 
      .SelectCommand.CommandText = "select * from [vote] where username = '" & user.Text & "'" 
      .SelectCommand.Connection = con 
     End With 

     Dim dataRead As OleDb.OleDbDataReader 
     dataRead = aAdapter.SelectCommand.ExecuteReader() 


     If Not dataRead.HasRows Then 

      ComInsert.CommandText = "INSERT INTO vote([username],[president],[vicePresident],[secretary],[treasurer])" & _ 
        "VALUES('" & user.Text & "','" & presbox.Text & "','" & vpbox.Text & "','" & secbox.Text & "','" & treasbox.Text & "')" 

      ComInsert.Connection = con 
      ComInsert.ExecuteNonQuery() 

      MsgBox("Voting Successful!", MsgBoxStyle.Information, "NEW RECORD") 

      Form1.Show() 
      Me.Close() 
      aAdapter.Dispose() 
      ComInsert.Dispose() 
     Else 
      MsgBox("WARNING: User Voted Already!!", MsgBoxStyle.Exclamation, "ERROR SAVING DATA") 
      Me.Close() 
      Form1.Show() 
     End If 
    Catch ex As Exception 

    End Try 
End Sub 

End Class 

Answer 1

有几个方法可以做到这一点，如果我理解你想要什么。

1.）我们可以检查combobox.text属性中是否有任何东西。

If String.IsNullOrEmpty(cbobox.text) Then 
Perform the logic of adding data to textbox here. 
cbobox.text = null 
End If 

这是最简单的方法，但你必须设置组合框返回null被添加的数据后，使其重新工作。

2.）我们可以使用Combobox.SelectedIndexChanged方法。

这里是文档网站：http://msdn.microsoft.com/en-us/library/system.windows.forms.combobox.selectedindexchanged.aspx

下面是一个例子：

private void ComboBox1_SelectedIndexChanged(object sender, 
      System.EventArgs e) 
     { 
perform logic here 

     } 

希望这有助于。

Answer 2

Private Sub p1() 
    If Not con.State = ConnectionState.Open Then 
     con.Open() 
    End If 

    Com = con.CreateCommand 
    Com.CommandText = "SELECT COUNT(vote.presnum) as countofpres FROM vote WHERE presnum ='1';" 
    Dim dt As OleDb.OleDbDataReader = Com.ExecuteReader 

    dt.Read() 

    Dim countpres As Integer = dt("countofpres") 

    Me.pres1.Text = countpres 

    dt.Close() 

End Sub 

这里是Jlott