在表属性里设置了部分列的数据字典,想通过输入代码即可实现显示相应的名称,但鼠标进入该字段的时候,只能用鼠标点选,却不能直接输入??
此主题相关图片如下:360截图20141204093556714.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-12/20141249332113324.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
求助:如何实现单元格可以直接编辑?即:输入相应的代码即可显示对应的名称?