琴女电玩:Private Sub Cmbbh_Click()作一下解释,高手指点。

来源:百度文库 编辑:高考问答 时间:2024/05/08 17:08:40
Private Sub Cmbbh_Click()
If rs.State = 1 Then
rs.Close
End If
If cmbbh.Text <> "" Then
rs.Open "select * from 接警 where 编号='" & cmbbh.Text & "'", db, adOpenKeyset, adLockOptimistic
Set Dgrdjj.DataSource = rs
'Dgrdjj.Caption = Cmbbh.Text
Else
MsgBox "请选择编号", vbInformation, "提示"
End If
End Sub

只不过就是一个私有过程!!!!!!

不知道你的这个东西应用到哪里拉!