【pb】 如何让数据窗口中字符型字段只能录入数字和符号'-' （自定义的掩码）

pb里这样写editchange

int i
string lsdata
if string(dwo.name)='nm' then
for i=1 to len(data)
if not Match( mid(data,i,1) , "[0-9-]") then
continue
end if
lsdata+=mid(data,i,1)
next

this.settext(lsdata)
this.selecttext(len(data)+1,len(data)+2)

end if

http://topic.csdn.net/u/20110304/09/de6d1608-7f55-46e4-a8d2-e0909db757d1.html?49995