一段判断语句修改,该如何处理

一段判断语句修改
lnHandle=SQLConnect(lcODBCName,lcDBUser,lcDBPasswd)
If lnHandle>0 &&连接成功
**更新数据)
if '00000000-0000-0000-0000-000000000000'=alltrim(thisform.text1.value)
messagebox("默认代理人 不可删除")

if 1<=SQLExec(lnHandle,"select count(zhh) from xxb where agentid='"+alltrim(thisform.text1.value)+"'")
messagebox("此代理人名下有商品 不可删除")

else
lnReturn=SQLExec(lnHandle,"delete from vk_agent where agentid='"+alltrim(thisform.text1.value)+"'")
thisform.comdel.click
If lnReturn>0 &&运行成功
messagebox("删除成功")
Else &&失败
&&出错处理
EndIf
endif
endif
Else &&连接失败
MessageBox("连接SQL SERVER失败",16,"BUFFER")
EndIf


我的意思是：是删除点击
先判断是不是默认代理人，是就不删除；不是了，再看代理人是否在XXB中有无，有给提示不删除，无则删除

[解决办法]

SQL code

lnHandle=SQLConnect(lcODBCName,lcDBUser,lcDBPasswd)If lnHandle>0 &&连接成功    **更新数据)    If '00000000-0000-0000-0000-000000000000'=Alltrim(Thisform.text1.Value)        Messagebox("默认代理人 不可删除")        Return    Else        If 1<=SQLExec(lnHandle,"select count(zhh) as zhhs from xxb where agentid='"+Alltrim(Thisform.text1.Value)+"'",'ct1')            If ct1.zhhs>0                Messagebox("此代理人名下有商品 不可删除")                Return            Else                If SQLExec(lnHandle,"delete from vk_agent where agentid='"+Alltrim(Thisform.text1.Value)+"'")>0 &&运行成功                    Thisform.comdel.Click                    Messagebox("删除成功")                Else &&失败                    &&出错处理                Endif            Endif        Else &&失败            &&出错处理        Endif    EndifElse &&连接失败    Messagebox("连接SQL SERVER失败",16,"BUFFER")Endif