有时候我们想点击一条记录，然后这行数据就被全选了。这样非常的方便对正行数据进行处理。

我们一般都是以子窗体来显示数据的。下面的代码简单地实现了这个功能，当然我们可以使用ListView来处理这样的问题是非常不错的

Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls     If TypeOf ctl Is TextBox or TypeOf ctl Is ComboBox Then        ctl.OnEnter = "=Enterss"     End If Next End Sub