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