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

 

pb里这样写editchange

 

int istring lsdataif 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