可以弄数据字典
Dim dmp As New MultiDataMapdmp.Add("1|居住中")dmp.Add("2|已离开")dmp.ValueCol = 0dmp.DisplayCol = 1Tables("表A").Cols("第二列").DataMap = dmp.CreateDataMap