Foxtable(狐表)用户栏目专家坐堂 → 有关DropDownBox 控件焦点 转移的问题?


  共有2179人关注过本帖平板打印复制链接

主题:有关DropDownBox 控件焦点 转移的问题?

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


加好友 发短信
等级:婴狐 帖子:15 积分:214 威望:0 精华:0 注册:2011/10/11 16:35:00
有关DropDownBox 控件焦点 转移的问题?  发帖心情 Post By:2020/1/16 11:27:00 [只看该作者]

多次查阅了论坛中的贴子&帮助示例 还是不得其法,遂发贴求教!
想实现在完成DropDownBox控件下拉目录树的输入后,通过代码自动将输入焦点转移到下一个控件(tab键的下一个),却发现无法转移,只能通过鼠标点选才能再次取得输入焦点。请教是代码问题吗?

frmzlgsbmlist_AfterLoad 

'加载目录树

frmtr(e.Form.Controls("TreeView1"),"qryjczlgsbm")

 

frmzlgsbmlist_DropDownOpened 

e.Form.DropDownBox.Select()

 

frmzlgsbmlist_TreeView1_NodeMouseClick 

If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的

    e.Form.DropDownBox.Value = e.node.Name

    e.Form.DropTable.FinishEditing()

Else '如果是通过窗口下拉的

    Select Case  MainTable.name

        Case  "tblzllpzl", "tblcgcgsq"

            If e.node.Text <> "全部"

                e.Form.DropDownBox.value = e.node.name & "_" & e.node.Text

            Else

                e.Form.DropDownBox.value = ""

            End If

            e.Form.DropDownBox.Select()

            Sendkeys.Send("{tab}")

        Case  "qryxsddlist"                  

    End Select

End If

e.Form.DropDownBox.CloseDropdown



 回到顶部