以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ComboBox1控件回车代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133850)
--  作者：蓝蚂蚁
--  发布时间：2019/4/22 8:14:00
--  ComboBox1控件回车代码


图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：image 2.jpg
图片点击可在新窗口打开查看

ComboBox1的KeyDown代码如下：

If e.keycode = 13 Then   
    Dim xlh As WinForm.ComboBox= e.Form.Controls("ComboBox1")
    Dim dc As DataRow =DataTables("供货单位").Find("代码=\'" & xlh.text &"\'")
    If dc IsNot Nothing Then
        xlh.text=dc("供货单位")
    Else
        MessageBox.Show("没有找到该供货单位! 无法录入!", "提示")
    End If
End If

麻烦老师帮看看这个代码哪里有问题，谢谢


 

[此贴子已经被作者于2019/4/22 8:17:58编辑过]
--  作者：蓝蚂蚁
--  发布时间：2019/4/22 8:22:00
--  

If e.keycode = 13 Then   
    Dim xlh As WinForm.ComboBox= e.Form.Controls("ComboBox1")
    Dim dc As DataRow =DataTables("供货单位").Find("代码 like \'%" & xlh.text &"%\'")
    If dc IsNot Nothing Then
        xlh.text =dc("供货单位")
    Else
        MessageBox.Show("没有找到该供货单位! 无法录入!", "提示")
    End If
End If

修改后的代码，这个好像行，不知道是不是这样子？

[此贴子已经被作者于2019/4/22 8:22:52编辑过]
--  作者：有点色
--  发布时间：2019/4/22 9:47:00
--  

参考

 

下载信息  [文件大小：324.0 KB  下载次数：28]
图片点击可在新窗口打开查看点击浏览该文件:拼音_下拉窗口_示例.table

 

 下载信息  [文件大小：336.0 KB  下载次数：13]
图片点击可在新窗口打开查看点击浏览该文件:拼音_下拉窗口_复选.table