在vb中有条件的查询数据库中数据的代码问题

来源：百度知道 编辑：UC知道 时间：2024/05/13 08:40:22
If Command1.Caption = "输入查找信息" Then
Command1.Caption = "继续查找信息"
Data1.Recordset.AddNew
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False

Text1.SetFocus

Exit Sub
Else

Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Text6.Locked = True
Text7.Locked = True
Text8.Locked = True

Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
Command1.Caption = "输入查找信息"

Data1.Refresh

End If
End Sub

Private Sub Command2_Click()
If Text1.Locked = True Or Text2.Locked = True Or Text3.Locked = True Or

请【调整思路】:
1.先判断符合条件的个数？有：显示；否：退出。
2.有：显示；用网格控件为好，关闭表。
3.否：退出；关闭表，加“提示！”
－－－－－－－－－－－－－－－－－－－－－－
1....N次，均重复上述过程。
－－－－－－－－－－－－－－－－－－－－－－
你作的，代码太多了！