Foxtable(狐表)用户栏目专家坐堂 → 下拉列表选择问题


  共有4585人关注过本帖树形打印复制链接

主题:下拉列表选择问题

帅哥哟,离线,有人找我吗?
zyxhx
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
下拉列表选择问题  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/17 10:48:00 [只看该作者]

这种应该在下拉窗口双击后给单元格赋值,而不应该在datacolchanged事件处理

 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2019/8/17 10:56:00 [只看该作者]

请问老师,如何赋值?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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()


 回到顶部
帅哥哟,离线,有人找我吗?
zyxhx
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2019/8/17 11:32:00 [只看该作者]

感谢老师指点,问题解决了!每次遇到问题都能够及时得到老师的耐心指点,学生在这里表示衷心感谢!

 回到顶部