就是这个重写那个flght select的方法里面
function SelectRegExp(Obj,patrn,button,offset)
dim NumOfItems,i,CurrentValue,regEx,ItemToSelect,oldFilter
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=False
oldFilter=Reporter.Filter
Repoerter.Filter=2
ItemToSelect=-1
NumOfItems=obj.GetRoProperty("items count")
For i=0 to NumOfItems-1
CurrentValue=obj.GetItem(i)
If regEx.Test(CurrentValue) Then
If(ItemToSelect<>-1)Then
SelectRegExp=-1
Reporter.Filter=oldFilter
Exit Function
End If
ItemToSelect=i
End If
Next
Reporter.Filter=oldFilter
If(ItemToSelect>=0)Then