主题：DataMap怎么会没用了

With Tables(e.Form.Name & "_Table2")

    .DataTable.Fill("Select * From 角色菜单 Where 1=2","测试",False)

    Dim dmp As New DataMap

    dmp.Add(1,"苹果")

    dmp.Add(2,"香蕉")

    dmp.Add(3,"波罗")

    dmp.Add(4,"桔子")

    dmp.Add(5,"桃子")

    .Cols("菜单ID").DataMap = dmp

    '.Cols("角色ID").DataMap = dmp

    .Cols("创建时间").Visible = False

    .DataTable.LoadFilter = "角色ID = " & 角色

    .DataTable.Load

End With

为什么不能显示名称？