以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为啥窗口表不能获得焦点 代码如下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160385)

--  作者:jswjyjf
--  发布时间:2021/1/31 19:58:00
--  为啥窗口表不能获得焦点 代码如下
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
\'If nd.nodes.count<>0
\'e.Form.Controls("Button3").Enabled=False
\'Else
\'e.Form.Controls("Button3").Enabled=True
\'End If
If e.Node.Name = "全部" Then
    Tables("供应商_table1").Filter = ""
    Tables("供应商_table1").Sort = "分类编码"
Else
    Tables("供应商_table1").Filter = "分类编码 Like \'" & e.Node.fullName.replace("\\",".") & "*\'"
End If
Tables("供应商类别").Position = Tables("供应商类别").FindRow(e.node.DataRow)
If e.Node.Name = "全部" 
e.Form.Controls("TextBox2").value="全部"
Else
e.Form.Controls("TextBox2").value=Tables("供应商类别").current("分类名称")
e.Form.Controls("TextBox3").value=Tables("供应商类别").current("分类编码")
End If
Forms("供应商").Controls("Table1").Select

--  作者:有点蓝
--  发布时间:2021/1/31 20:59:00
--  
首先要窗口本身有焦点,窗口里面的控件才能有焦点。什么类型的窗口?
--  作者:jswjyjf
--  发布时间:2021/2/1 8:06:00
--  
我的窗口是并列窗口,有两个控件 左边是treeview 右边是副本表 ,我要求是一打开窗口 ,副本表马上获得焦点,还有选择node后 焦点也要在副本表上,我怎么弄也不行 
--  作者:有点蓝
--  发布时间:2021/2/1 9:12:00
--  
设置一下tab顺序,然后
Forms("供应商").Controls("Table1").Select
Sendkeys.Send("{TAB}")

--  作者:jswjyjf
--  发布时间:2021/2/1 9:59:00
--  
可以了 万分感谢
--  作者:jswjyjf
--  发布时间:2021/2/1 10:48:00
--  
单独一个窗口执行没有问题,但是放在菜单里执行窗口 焦点还是没有移动到窗口中的表上
--  作者:有点蓝
--  发布时间:2021/2/1 10:50:00
--  
请上传实例说明
--  作者:jswjyjf
--  发布时间:2021/2/1 11:17:00
--  
我把treeview 作为导航栏 点击节点 打开这个并列窗口的
--  作者:jswjyjf
--  发布时间:2021/2/1 11:38:00
--  
如果一个并列窗口跳转到另一个并列窗口 ,那里面的表焦点如何获得
--  作者:有点蓝
--  发布时间:2021/2/1 11:47:00
--  
怎么跳转的?如果是点击标题,这个没有办法控制。

如果是使用代码切换的,同样的用法:
Forms("窗口1").Show
Forms("窗口1").Controls("Table1").Select