主题：DataMap问题求教

 

目的：给职务列输入内容

 

代码1：

Dim dt As DataTable = DataTables(“基本类型”)

Dim dmpzw As New TableDataMap

dmpzw.DataTable = “基本类型”   '指定数据来源表

dmpzw.ValueCol = "_Identify" '指定取值列

dmpzw.DisplayCol = "名称" '指定显示列

'指定下拉列表时显示哪些列的数据

dmpzw.ListCols = "编码,名称"

dmpzw.Filter = "[基本类型] = '职务类别'"

Tables("用户").Cols("职务").DataMap = dmpzw.CreateDataMap() '生成并设置DataMap