这个看似简单的问题害得我忙了一天也没搞定

软件下载

大家知道有个“forms!窗体名!控件名.属性”语法，如forms!ordery_name!文本1.setfocus，现在的问题是：看下面代码：

function Command1_Click()

dim frm_nam,ctl_nam as string   '此名不要也无妨

frm_nam= Screen.Activeform.Name　　'获取当前活动的窗体名

ctl_nam=screen.Activecontrol.Name　　　'获取当前获得焦点的控件名

forms!frm_nam!ctl_nam.AutoTab=true   '将此控件的自动索引设为真。

End function

大家应该理解我的意思，上面的代码通不过，应该怎样改写？

软件下载

没人知道？

上面代码关键是最后一个不行，无法将frm_nam替换成窗体名。

yachtz

这样引用 forms(frm_nam).Controls(ctl_nam)

另外，按扭是无Autotab的

软件下载

以下是引用yachtz在2004-11-25 17:14:36的发言：



这样引用 forms(frm_nam).Controls(ctl_nam)

另外，按扭是无Autotab的

谢谢，此法可用，不过刚才得到另一高人指点，决定用更简单的sendkeys "{f2}"