'自定义逻辑列的显示内容
Dim dmp As New DataMapdmp.Add(True,"居住中")dmp.Add(False,"已离开")Tables("表A").Cols("状态").DataMap = dmp