以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TextBox没有启用输入助手吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99717)
--  作者：huhu
--  发布时间：2017/4/25 16:08:00
--  TextBox没有启用输入助手吗?
如题。
--  作者：有点色
--  发布时间：2017/4/25 16:12:00
--  

 用一个ComboBox模拟，afterLoad事件把下拉去掉即可

 

Dim rgd = e.Form.Controls("ComboBox1").BaseControl
rgd.ShowDropDownButton = False
--  作者：huhu
--  发布时间：2017/4/25 16:27:00
--  
控件有afterload事件?在哪里呢?

图片点击可在新窗口打开查看此主题相关图片如下：afterload.png
图片点击可在新窗口打开查看
--  作者：有点色
--  发布时间：2017/4/25 16:28:00
--  
 窗口的AfterLoad事件。
--  作者：huhu
--  发布时间：2017/4/25 16:39:00
--  
没有用combox控件。直接使用textbox控件。但复制了某个SN到textbox2控件内。但发现每次都需要敲2次回车才正常加载。咋回事呢?

KeyDown代码

Dim sn As WinForm.TextBox = e.Form.Controls("TextBox2")
If e.KeyCode = keys.enter Then
    If sn.value > 0 Then
        DataTables("库存明细表").LoadFilter = "SN = \'" & sn.value & "\'"
        DataTables("库存明细表").load
    Else
        MessageBox.show("请输入序列号","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If    
End If
[此贴子已经被作者于2017/4/25 16:39:14编辑过]
--  作者：有点色
--  发布时间：2017/4/25 16:48:00
--  

sn.value 改成 sn.Text