为什么调试时候老提示语法错误呢

[nicholas_yy]

string ls_sql
string ls_jfnd,ls_xm
ls_jfnd=trim(sle_1.text)
ls_xm=trim(sle_2.text)
if ls_jfnd<>"" and not isnull(ls_jfnd) then
ls_sql="c_yymx.bh='"+ls_jfnd+"'"
end if

if ls_xm<>"" and not isnull(ls_xm) then
if ls_sql="" or isnull(ls_sql) then
ls_sql="c_yymx.ypbh='"+ls_xm+"'"
else
ls_sql=ls_sql+" and c_yymx.ypbh='"+ls_xm+"'"
end if
end if
end if

dw_1.settransobject(sqlca)
IF dw_1.SetSQLSelect(ls_sql) = 1 THEN
dw_1.settransobject(sqlca)
dw_1.Filter()
ELSE
messagebox("系统提示","检索数据错误!")


我这程序有什么错误，怎么老提示语法错误呢

[lmby]

if ls_xm<>"" and not isnull(ls_xm) then
if ls_sql="" or isnull(ls_sql) then
ls_sql="c_yymx.ypbh='"+ls_xm+"'"
else
ls_sql=ls_sql+" and c_yymx.ypbh='"+ls_xm+"'"
end if
end if
end if//多了一个end if

[小子侯]

string ls_sql
string ls_jfnd,ls_xm
ls_jfnd=trim(sle_1.text)
ls_xm=trim(sle_2.text)
if ls_jfnd<>"" and not isnull(ls_jfnd) then
ls_sql="c_yymx.bh='"+ls_jfnd+"'"
end if

if ls_xm<>"" and not isnull(ls_xm) then
if ls_sql="" or isnull(ls_sql) then
ls_sql="c_yymx.ypbh='"+ls_xm+"'"
else
ls_sql=ls_sql+" and c_yymx.ypbh='"+ls_xm+"'"
end if
end if


dw_1.settransobject(sqlca)
IF dw_1.SetSQLSelect(ls_sql) = 1 THEN
dw_1.settransobject(sqlca)
dw_1.Filter()
ELSE
messagebox("系统提示","检索数据错误!")
END IF

[workhand]

注意语句的缩进，前面多了一个end if 后面少了一个end if 。

[Zhaoxf0201]

对啊,一个多了一个endif ,另一个少了一个end if

[mittee]

是保存的时候出现错误吧，
还有代码有一些问题。
string ls_oldsql
dw_1.settransobject(sqlca)
ls_oldsql = dw_1.getsqlselect()
ls_sql = ls_oldsql + "and " + ls_sql //注意数据窗口的sql语法是否有where,
//如果没有还要加上，不需要and
dw_1.SetSQLSelect(ls_sql)
dw_1.retrieve()
dw_1.SetSQLSelect(ls_oldsql)

[klbt]

end if时多时少，细心很重要。

[daiwoo_wang]

要 养成良好的习惯，在写一个IF的时候，马上写END IF ，然后在中间写东西，不要以为自己可以记得清。另外缩进很重要，良好的编程风格和习惯是必不可少的，否则你要付出很多代价

[cxwsoftware]

end if

[hyan]

将 if ls_sql="" 的条件修改为 if ls_sql+"a"="a" 试试

好象PB不能使用使用“”

[sinkiangscorpio]

dw_1.settransobject(sqlca)
IF dw_1.SetSQLSelect(ls_sql) = 1 THEN
dw_1.settransobject(sqlca)
dw_1.Filter()//这个地方应该为 retrieve,不是filter,不过好像也能实现。
此外就是dw_1.settransobject(sqlca)重复


to hyan(hyan):
楼上的说法好像不成立