老师您好,在窗口控件中,输入姓名自动弹出关联的下拉窗口,当搜索有两个相同的名字时,双击后却只能显示第一条对应的信息。如何才能设置先哪条信息就对应该姓名行后面的信息。
如下图:选择的第二条,显示的却是第一条信息的对应信息,请老师指点是什么原因?

此主题相关图片如下:01.png


此主题相关图片如下:02.png

以下是表DataColChanged事件代码,请老师指点:
Select Case e.DataCol.name '根据本表的姓名与参合成员信息的姓名匹配,提取其中对应的医疗证号等
Case "姓名"
If e.DataRow.IsNull("姓名") Then
e.DataRow("合医证号") = Nothing
Else
Dim bm As String = e.DataRow("姓名")
Dim dr As DataRow = DataTables("参合成员信息").Find("姓名 = '" & bm & "'")
If dr IsNot Nothing Then
e.DataRow("姓名") = dr("姓名")
e.DataRow("合医证号") = dr("医疗证号")
e.DataRow("身份证号") = dr("身份证号")
e.DataRow("住址") = dr("乡村组")
e.DataRow("性别") = dr("性别")
e.DataRow("电话号码") = dr("联系电话")
End If
End If
End Select