多次查阅了论坛中的贴子&帮助示例 还是不得其法,遂发贴求教!
想实现在完成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