IF\rENDPROC\rCaption = "GH"\rName = "Okbuttonl.\rPROCEDURE Click\rENDPROC\r****** *6789'FORMS'yz{|.SCX\rName = Forml\rPROCEDURE Init\rPUBLIC xn, xq\rthisform. combo 1.setfocus\rENDPROC\rName = Combo2\rPROCEDURE GotFocus\rIF len(alltrim(thisform. combo1. value))=0\r=messagebox (}~7hB18, wx)\rthisform. combo1. setfocus\rENDIF\rENDPROC\rCaption = G\rName = "Command1\rPROCEDURE Click\rxn=alltrim(thisform. combol. value)\rxq=alltrim(thisform. Combo2. value).\rIF !used d'kcap'f\rUSE kcap\rELSE\rSELE kcap\rEND IF\rSET filter to alltrimd7hf=xn. and. alltrimd7if=xq\rCOUNT to jls\rIF jls=O\r=messageboxd"7h
7iv"B8,"wx"f\rRETU\rELSE\rENDPROC
全文预览
