我用COMBOL控件查询数据库的记录遇到的一个问题,请帮我看一下,感谢
Private Sub Combo1_Click()
Dim BusNO As String
Combo1.Text = BusNO
Data1.Recordset.Index = "公交路线"
Data1.Recordset.Seek "=", BusNO
If Data1.Recordset.NoMatch Then MsgBox ("对不起，没有您所查询的路线")
Data1.Recordset.MoveFirst
End If
End Sub
为什么运行时候回说"end if without block if "什么意思啊?
我把combol_click()改为combol_change()就没有那个对话筐了,但是运行是没有任何作用!!
功能描述:
我是通过组合控件来查找数据库里面的对应的记录,并显示...
请帮忙看看,谢谢
问题点数：0、回复次数：2Top
1 楼zgvslch（烟花离落）回复于 2005-06-03 22:31:11 得分 0
Private Sub Combo1_Click()
Dim BusNO As String
Combo1.Text = BusNO
Data1.Recordset.Index = "公交路线"
Data1.Recordset.Seek "=", BusNO
If Data1.Recordset.NoMatch Then '*************** 要把Msgbox换行
MsgBox ("对不起，没有您所查询的路线")
Data1.Recordset.MoveFirst
End If
End SubTop
2 楼cxbkkk（本命年，旺啊！）回复于 2005-06-05 12:13:29 得分 0
你的if与end if不匹配，哪里少勒Top
