1,217
社区成员




FHPH = Replace(Trim(Text1.Text), "'", "''") '入货票号
Set rs = New ADODB.Recordset
strSql = "select * from Warehouse where INPUTVOTES='" & FHPH & "' "
rs.Open strSql, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount <> 0 Then
MsgBox " ", 0 + 48, " "
rs.Close
Text1.Text = ""
Exit Sub
End If