以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 输入焦点返回单元格代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64757)

--  作者:1922945174
--  发布时间:2015/2/28 23:54:00
--  [求助] 输入焦点返回单元格代码

输入焦点返回单元格代码
--  作者:1922945174
--  发布时间:2015/2/28 23:55:00
--  
老师帮忙
谢谢!

--  作者:有点甜
--  发布时间:2015/3/1 9:35:00
--  

tables("表A").StartEditing


--  作者:1922945174
--  发布时间:2015/3/1 12:24:00
--  
现在上传项目
请老师帮下吧
我水平太差
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:处方.table


--  作者:有点甜
--  发布时间:2015/3/1 14:21:00
--  

1、密码;

 

2、怎么操作,怎样的效果


--  作者:1922945174
--  发布时间:2015/3/1 14:43:00
--  
对不起忙给了:
密码741
在  处方明细 中录入药品名称拼音代码时,录一个字母就动不了了,我想连续录入拼音字母,下拉表不断筛选显示
谢谢!

--  作者:有点甜
--  发布时间:2015/3/1 14:47:00
--  

e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框

 

 

一、设计下拉窗口

1、首先在订单表新增一个窗口,名称为"窗口1",窗口类型为"DropDownForm",窗口插入一个Table控件,Table控件的“作为副本”属性设置为True,“允许编辑”属性设置为False,并绑定到客户表。

2、将窗口的DropDownOpened事件代码设置为:

 

Dim txt As String = e.Form.DropDownBox.Text
Dim
tbl As Table = Tables("窗口1_Table1")
If
txt = "" Then
   
tbl.Filter = ""
Else

    txt =
"\'%" & txt & "%\'"
    tbl.Filter =
"客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End
If
e.Form.DropDownBox.
Select()
\'将输入焦点返回下拉列表框

 


--  作者:1922945174
--  发布时间:2015/3/1 14:52:00
--  
我想要在同一单元格中录入一个字母,下拉表就刷新一次
--  作者:有点甜
--  发布时间:2015/3/1 14:53:00
--  

就是啊,输入几个字母就刷新几次啊


--  作者:1922945174
--  发布时间:2015/3/1 14:53:00
--  
此时光标要一直在单元格中