如何清除上一次记录
Private Sub txtfgIN_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtfgIN.KeyDown
If e.KeyCode = Keys.Enter Then
address()
cbxaddress.Focus()
cbxaddress.SelectAll()
End If
End Sub
Private Sub address()
dim sql as string
sql="select address from orderaddress"
Dim cmd As New SqlCommand(sql, GtsCn)
Dim readcustomer As SqlDataReader = cmd.ExecuteReader
While readcustomer.Read
Me.cbxaddress.Items.Add(readcustomer(0))
End While
readcustomer.Close()
End Sub
每次敲回车,就出再上次出现的记当和本次的记录和在一起出现,能不能把上次的清空
希望高手指点