不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

怎样自己编写错误信息代替datawindow update时的错误？

楼主netmuse（网思）2001-06-02 13:51:00 在 PowerBuilder / DataWindow 提问

怎样自己编写错误信息代替datawindow update时的错误？
比如，不得为空，index项不得重复等。问题点数：10、回复次数：12Top

1 楼netmuse（网思）回复于 2001-06-02 13:51:00 得分 0

Top

2 楼zls0303（三少爷的剑）回复于 2001-06-02 14:02:00 得分 0

在itemerror事件里写,还有在itemchanged事件和itemfocusitemchanged事件写，还有dberror，就是这几个事件哟Top

3 楼netmuse（网思）回复于 2001-06-02 14:06:00 得分 0

没其他的了？Top

4 楼weiqihp（新手上路）回复于 2001-06-02 15:00:00 得分 0

在itemerror事件里拦截错误代码，用 return 1 让系统不显示错误代码，然后弹出自己的错误代码Top

5 楼superzyw（千古）回复于 2001-06-02 16:51:00 得分 0

在dberror中写return 1,然后用
messagebox("",sqldbcode),
if sqldbcode=999 then
............
end if
有其他方法还请指教！
Top

6 楼ping_ping（苹苹）回复于 2001-06-02 17:02:00 得分 5

给个例子：

在dberror事件中：

string ls_bh,ls_qssj
long ll_row
choose case sqldbcode
case -193//重复
messagebox("信息提示","有重复的数据！",exclamation!)
ls_bh=dw_1.object.bh[row]
ls_qssj=dw_1.object.qssj[row]
ll_row = dw_1.find("bh='"+ls_bh+"' and qssj='"+ls_qssj+"'",row - 1,1)
scrolltorow(row)
selectrow(row,true)
selectrow(ll_row,true)
case -195//为空
messagebox("信息提示","有为空的数据！",exclamation!)
scrolltorow(row)
selectrow(row,true)
end choose
return 1

itemerror中：
messagebox("提示","数据“"+string(data)+"”通不过效检，请检查！")
return 1
Top

7 楼leonwan（I walk alone）回复于 2001-06-02 18:17:00 得分 0

代码写在哪里到无所谓。
不过我一般喜欢写在窗口函数里面。
在按扭你调用函数检测返回值。
重要的是你的代码要预先能够发现可能产生的错误。
比如说：
表的一列为非空，你就要在代码里把这种情况考虑进来。Top

8 楼SOFTFUN_CSDN（不知所云~）回复于 2001-06-02 20:47:00 得分 0

Custom Datawindow Object~~Top

9 楼netmuse（网思）回复于 2001-06-02 20:47:00 得分 0

那么怎样在itemchanged事件里判断有重复列？Top

10 楼zls0303（三少爷的剑）回复于 2001-06-03 13:58:00 得分 5

　to netmuse　有个例子如下：

long li_count

select count(*) into:li_count form table where 关键字 = :data using sqlca;
if li_count > 0 then
messagebox("提示","关键字重复，请重新输入")
dw_1.setfocus()
dw_1.setcolumn('关键字')
return 1
end if

另在ItemError事件写如下：
return 1Top