主题：[求助]数据字典录入时发生的奇怪现象

员工编号为数据字典，录入之后，编号居然消失了，已经设定一旦员工编号为空，则姓名也将为空，
事实上员工编号就是没有为空，只是显示的问题
见以下动画：

此主题相关图片如下：gz.gif

在PreEdite事件设置数据字典
If e.Col.Name = "ygbh" and e.Row.IsNull("scz") = False then
    If e.IsFocusCell Then '如果是焦点单元格
        Dim dmp1 as New TableDataMap
        dmp1.DataTable = "yggz" '指定数据来源表
        dmp1.ValueCol = "ygbh" '指定取值列
        dmp1.DisplayCol = "ygbh" '指定显示列
        '指定下拉列表时显示那些列的数据
        dmp1.ListCols = "ygbh,xm"
        dmp1.Filter = "[scz] = '" & e.Row("scz") & "'" '则只显示该生产组的员工
        dmp1.Sort = "xm"
        e.Col.DataMap = dmp1.CreateDataMap() '生成并设置DataMap
    end if
End If
在DataColChanged事件中设置姓名取值，没有其他的代码
if e.DataCol.Name="ygbh" then
    if e.DataRow.IsNull("ygbh") then
        e.DataRow("xm") = nothing
    else
        Dim dr  As Datarow= DataTables("yggz").Find("ygbh = '" & e.DataRow("ygbh") & "'")
        If dr IsNot Nothing  then '一定要判断是否存在对应的行
            e.DataRow("xm") = dr("xm")
        else
            e.DataRow("xm") = nothing
        End If
    end if
end if

没有在drawcell设置代码的

老六，帮忙看看是何原因？

因为禁用了手工录入，所以肯定不存在你所说的情况

其实1楼的gif表明了：保存后重新打开，显示正常，就是在录入过程中“显示”有问题的，“数据”是存在的

改动了自带的示例，模拟1楼的情况，结果还是有如同1楼的gif
请老六进入看看，到底哪里出了问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩排名.rar

那么，内容不符者这个条件，就显示不了，这岂不是数据字典的“短肋”了，有否改进的可能？就是让非符合条件的也能正常显示呢？

好吧，收到
建议还是先搁在这里，想想其他的办法吧，或许有其他的可能，毕竟用起来也比较方便