主题：数据字典应用问题

Dim gdgx1 As New TableDataMap
gdgx1.DataTable = "gylx" '指定数据来源表
gdgx1.ValueCol = "gxid" '指定取值列
gdgx1.DisplayCol = "gxmc" '指定显示列
'指定下拉列表时显示哪些列的数据
gdgx1.ListCols = "gxid,gxmc"
Tables("gd").Cols("gxid").DataMap = gdgx1.CreateDataMap()

此代码写在prepareedit 事件上，但运行没有反应，不知上述代码错在哪里。