(蓝色情调) 大哥我要接着急问!!!朋友们快来帮忙!
rs.CursorLocation=adUseClient
FindBH = InputBox$("请输入要查找的土地登记申请书编号:", "查找")
rs.Open "select * from DJ_BGDJ_HBTDSYQSQS Where 编号= '" & trim(FindBH) & "'",cn
这段代码的第一句和后一句不懂能不能解释一下!
还有 If rs.BOF And rs.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
End Sub
现在要是找到编号了,就把编号及和编号在同一个表中的数据发送到界面上对应的text框中,怎么加代码呀!大家提供点代码和注释!!!谢谢!!!