字符串ls_sql //定義了壹個變量。
ls _ code = trim(sle_1 . text)//獲取編輯框SLE _ 1中輸入的內容。
如果ls_code = ' '那麽//判斷編輯框sle_1中輸入的內容是否為空,如果為空則彈出提示信息。
Messagebox ('Prompt ','請先選擇查詢條件!')
返回
如果…就會結束
如果ls _ code & lt& gt然後//判斷編輯框sle_1中輸入的內容是否為空,如果不是,則組織壹個過濾條件。
ls _ SQL = "(bfbh like“%”+ls _ code+“%”)"
如果…就會結束
Dw_1.setfilter(ls_sql) //設置數據窗口Dw_1的過濾條件。
dw_1.filter()
如果dw _ 1。Retrieve()= 0然後//檢索數據,判斷檢索結果中是否有數據,如果沒有,會彈出提示信息。
Messagebox ('Prompt ','沒有符合條件的記錄!')
如果…就會結束