改正后还有问题
报错如下：

刚才写的太仓促，有很多不完善的地方，现在我调试了，一切OK！！
Dim sessionObj
Dim sValue, sResult
Dim Qry
Dim ResultSet

Set sessionObj = GetSession

sValue = GetFieldValue("sid").GetValue
' msgbox sValue
  
Qry = "select dbid, sid from Defect where dbid <> 0 and  sid = '"&sValue&"'"
' msgbox Qry

Set ResultSet = sessionObj.BuildSQLQuery(Qry)
ResultSet.Execute
' msgbox "Execute."

     
Do While  ResultSet.MoveNext = AD_SUCCESS
' sResult = True
MsgBox "Duplicated Value!!!, Please enter another one."
SetFieldValue fieldname, ""
Loop

经过测试 宣告成功
我现在很是崇拜你呀 yunshan
不过你能不能给解释一下呀？？
我不是很明白

Dim sessionObj
Dim sValue, sResult
Dim Qry
Dim ResultSet

' 获得当前的session对象
Set sessionObj = GetSession

' 当用户输入完毕，焦点移出的时候，取得用户的输入值
sValue = GetFieldValue("sid").GetValue
' msgbox sValue

' SQL查询，从defect表中的sid中查出有没有有没有这个值的存在，这里是查询语句
Qry = "select dbid, sid from Defect where dbid <> 0 and  sid = '"&sValue&"'"
' msgbox Qry

' 调用CQ的API来创建一个SQL查询，查询结果存放在记录集ResultSet中
Set ResultSet = sessionObj.BuildSQLQuery(Qry)
' 执行这个查询
ResultSet.Execute
' msgbox "Execute."

' 如果查询到了，就说明有重复的，弹出警告，并清空，注意一般记录集的第一条是空的，
' 所以先要将指针向后移动一个记录     
Do While  ResultSet.MoveNext = AD_SUCCESS
' sResult = True
MsgBox "Duplicated Value!!!, Please enter another one."
SetFieldValue fieldname, ""
Loop

最佳答案

该回答被楼主/管理员列为正解!