【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