bsp; If Trim(txtname) <> "" Then
SQL = "ename like '%" & Trim(txtname) & "%'"
End If
RsE.Filter = SQL
If Not (RsE.BOF Or RsE.EOF) Then
Set dtgrd2.DataSource = RsE
Else
MsgBox "没有找到记录!", , ginfo
RsE.Filter = ""
End If
Else
If Trim(txtname) <> "" Then
SQL = "Pname='" & Trim(txtname) & "'"
End If
RsP.Filter = SQL
If Not (RsP.BOF Or RsP.EOF) Then
Set dtgrd1.DataSource = RsP
Else
MsgBox " 没有找到记录!", , ginfo
RsP.Filter = ""
End If
End If
Exit Sub
gl: MsgBox err.Description
End Sub
Private Sub Form_Load()
frmph.Top = 0
frmph.Left = 0
RsP.Open "select * FROM prostock", cn, adOpenKeyset, adLockBatchOptimistic
RsE.Open "select * from EleStock", cn, adOpenKeyset, adLockBatchOptimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
RsP.Close
RsE.Close
End Sub