- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 下拉列表选择问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139614)
-- 发布时间：2019/8/17 10:42:00
-- 下拉列表选择问题
老师您好，在窗口控件中，输入姓名自动弹出关联的下拉窗口，当搜索有两个相同的名字时，双击后却只能显示第一条对应的信息。如何才能设置先哪条信息就对应该姓名行后面的信息。
如下图：选择的第二条，显示的却是第一条信息的对应信息，请老师指点是什么原因？
此主题相关图片如下：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
-- 发布时间：2019/8/17 10:48:00
--
这种应该在下拉窗口双击后给单元格赋值，而不应该在datacolchanged事件处理
-- 发布时间：2019/8/17 10:56:00
--
请问老师，如何赋值？
-- 发布时间：2019/8/17 11:06:00
--
下拉窗口本来是怎么赋值的？
4、将Table控件的DoubleClick事件设置为：
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
tables("表A").current("住址") = tbl.Current("乡村组")
End If
e.Form.DropDownBox.CloseDropDown()
-- 发布时间：2019/8/17 11:32:00
--
感谢老师指点，问题解决了！每次遇到问题都能够及时得到老师的耐心指点，学生在这里表示衷心感谢！