Private Sub cmd查询_Click()
Dim strSQL As String
strSQL = "select * from qrycpjl where 1=1"
If IsNull(Me.scpthID) = False Then
strSQL = strSQL & " and 产品图号 = '" & Me.scpthID.Column(1) & "'"
End If
If IsNull(Me.scpdhID) = False Then
strSQL = strSQL & " and 产品代号 = '" & Me.scpdhID.Column(1) & "'"
End If
Forms!usysfrmMain!frmChild.Form.RecordSource = strSQL
Forms!usysfrmMain!frmChild.Form.Refresh
Me.Refresh
End Sub
Private Sub cmd清除_Click()
Me.scpthID = Null
Me.scpdhID = Null
End Sub