世间路台湾版土豆:Private Sub Cmbbh_Click()作一下解释,高手指点。

来源:百度文库 编辑:神马品牌网 时间:2024/05/09 07:46:38
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

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

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