主题：[求助]请教一个奇怪的问题！

项目如下

 

button1的代码为 转移窗口2的整个面板控件到窗口1

 

Dim spl1 As WinForm.SplitContainer
spl1 = e.Form.Controls("SplitContainer1")
forms("窗口2").open
forms("窗口2").visible = False
Dim ymy As WinForm.Panel = Forms("窗口2").Controls("Panel1")
spl1.Panel2.AddControl(ymy)
ymy.Dock = Windows.Forms.DockStyle.fill

 

窗口2 有个table1 currentchanged事件有段代码为 

 

forms("窗口1").controls("xbutton1").enabled = Tables("窗口2_table1").current("第一列") = 1

 

现在问题是：点击了button1代码后  出错

 

此主题相关图片如下：1212.jpg

 

但是出错后 再进去 点击右侧的表 发现currentchanged事件正常

 

不清楚什么情况 求教~~~~~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

已解决 

 

焦点问题

 

在窗口2加一个 e.form.controls("xbutton1").select  即可解决~