在表属性里设置了部分列的数据字典,想通过输入代码即可实现显示相应的名称,但鼠标进入该字段的时候,只能用鼠标点选,却不能直接输入??
此主题相关图片如下：360截图20141204093556714.jpg
代码 在表的PrepareEdit 事件中:
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
求助:如何实现单元格可以直接编辑?即:输入相应的代码即可显示对应的名称?
加好友 
发短信
Post By：2014/12/4 9:36:00 [只看该作者]
