Dim LB As List(OF String) = DataTables("词典").GetValues("类别","类别 IS NOT NULL")
If LB.Contains(E.Col.Name) Then
Dim dmp As New TableDataMap
dmp.DataTable = "词典" \'指定数据来源表
DMP.Filter = "类别 = \'" & E.Col.Name & "\'"
dmp.ValueCol = "代码" \'指定取值列
dmp.DisplayCol = "名称" \'指定显示列
\'指定下拉列表时显示哪些列的数据
dmp.ListCols = "代码,名称"
dmp.Sort = "代码" \'指定排序方式
E.Col.DataMap = dmp.CreateDataMap() \'生成并设置DataMap
End If