1、不要在prepareEdit事件写你那段代码,prepareEdit执行的频率很高的,你的查询代码很耗时。
2、如果要设置,参考代码
Dim dt As DataTable = DataTables("表A")
Dim mdm As New MultiDataMap
For Each dr As DataRow In dt.Select("")
mdm.Add(dr("第一列") & "|" & dr("第二列") & "|" & dr("第三列"))
Next
mdm.ValueCol = 0
mdm.DisplayCol = 1
Tables("表B").Cols("第一列").DataMap = mdm.CreateDataMap()