public Result AS String
public Index AS Integer=0

Function GetStyle(masterRef  as String) As String
 Index=Index+1
 
   IF masterRef<>Result  Then
  IF Index>=23 Then
   Result = masterRef
   Index=0
  END IF
  Return "Y"
 Else
  IF Index>=23 Then
   Index=0
  END IF
  Result = masterRef
         Return "N"
 END IF
End Function

 

posted on 2013-01-06 15:20  Tim_wu  阅读(237)  评论(0)    收藏  举报