* VFP9 代码
CLOSE DATABASES
USE 受牌班组
REPLACE ALL 受牌班组 WITH ""
REPLACE ALL 受牌班组 WITH GETWORDNUM(受牌人, 2, "-")
BROWSE
* VFP6 代码
CLOSE DATABASES
USE 受牌班组
REPLACE ALL 受牌班组 WITH ""
REPLACE ALL 受牌班组 WITH SUBSTR(受牌人, AT("-", 受牌人) + 1)
BROWSE