主题：代码拼装的多列数据字典不显示

  我测试没有问题。

 

Dim dmp As New MultiDataMap
dmp.Add("1|居住中")
dmp.Add("2|已离开")
dmp.ValueCol = 0
dmp.DisplayCol = 1
Tables("表A").Cols("第二列").DataMap = dmp.CreateDataMap

 空白，是因为，你动态生成了字典，字典改变以后，不在字典里面的值，就会显示空白的。

 具体例子放上来。

 

 

 是不是你写错了表名啊，窗口表要这样表示 Tables("窗口1_Table1")

 什么意思啊，没有问题啊，不执行这句代码？ 'visibleTables("order","订单管理",False) '隐藏所有表,这个方法写在全局代码中

 

1、代码不要写在ChangedEdit事件，没有意义，会造成空白；

 

2、我这样测试没问题

 

Dim cmd As New SQLCommand
Dim dt As DataTable

cmd.CommandText = "SELECT personno,name,sex,telephone,gw From {person} "
dt = cmd.ExecuteReader()

Dim mdm As New MultiDataMap
For Each dr1 As DataRow In dt.DataRows
    mdm.add(dr1("personno")&"|"&dr1("name")&"|"&dr1("sex")&"|"&dr1("telephone"))
Next
mdm.ValueCol = 0
mdm.DisplayCol = 1
Tables("订单管理_Table1").Cols("linkman").DataMap = mdm.CreateDataMap()

 数据字典不能改变，改变以后，必然空白。没有办法。

 木有