主题：如何将分组的代码替换成名称

Dim b As New SQLCrossTableBuilder("统计表1","crm_sale")
b.C
b.AddTable("crm_sale","opp_id","crm_opportunity","opp_id") '添加统计表
b.vGroups.AddDef("from_id") '根据产品名称分组
b.hGroups.AddExp("年", "Year(sell_date)")
b.hGroups.AddExp("月", "Month(sell_date)")
b.Totals.AddDef("crm_sale.totalMoney") '对数量进行统计
b.Subtotal = True '生成汇总模式
b.Build '生成统计表
Tables("桌面_tblMingxi").DataSource = b.BuildDataSource()

出来的表是b.vGroups.AddDef("from_id") '根据产品名称分组是出来的列名是代码from_id，如何将代码from_id的代码，提成成数据字典对应的名称