一段判判案句修改

一段判断语句修改
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中有无，有给提示不删除，无则删除
------解决方案--------------------------------------------------------

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
	Endif
Else &&连接失败
	Messagebox("连接SQL SERVER失败",16,"BUFFER")
Endif