文件不完整

if !empt(条件1) and !empt(条件2)
sele * from 表 where a=条件1 and b=条件2
else
retu
messagebox("条件不够，不能搜索")
endi

我对楼主的查询功能进行了修改：
1. 在表单的 Init 事件中，重新设置组合框：

SELECT DISTINCT 岩石名称 FROM 洼里 INTO CURSOR curTmp
WITH  .RowSourceType = 0
    .RowSource = ''
    .AddItem('(全部)')
    .AddItem('\-')
    SCAN
        .AddItem(TRIM(岩石名称))
    ENDSCAN
    .ListIndex = 1
ENDWITH

SELECT DISTINCT 采样地点 FROM 洼里 INTO CURSOR curTmp
WITH  .RowSource = ''
    .RowSourceType = 0
    .AddItem('(全部)')
    .AddItem('\-')
    SCAN
        .AddItem(TRIM(采样地点))
    ENDSCAN
    .ListIndex = 1
ENDWITH

2. 为表单新建一个自定义方法 SetFor，并在方法中输入如下代码：

LOCAL cName,cPlace,cFor
cName =  =  = ''
IF cName # '(全部)'
    cFor = '岩石名称 = ['+cName +']'
ENDIF
IF cPlace # '(全部)'
    cFor = cFor + IIF(EMPTY(cFor),'',' AND ')+'采样地点 = ['+cPlace +']'
ENDIF
SELECT 洼里
SET FILTER TO &cFor
GO TOP
THISFORM.Refresh

3. 将 Combo1 和 Combo2 的 InteractiveChange 事件代码均修改为: THISFORM.SetFor

收到的鲜花

• tlliqi 于 2014-05-20 21:41 送鲜花  20朵   附言：学习下

版主，可以看一下您的论坛信箱吗？我有事向您请教……

厉害厉害，谢谢~~（昨晚有事儿出去了，回复晚了。。。）

向Ta学习