前几天问过这个问题，没能最终解决,原贴：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=115004
我的情况是：有个独立窗口根据判断当前显示的不同并列窗口名称来给并列窗口中的表添加数据，错误代码如下：
If Forms("送达回证编辑").Opened Then
......
ElseIf Forms("传piao编辑").Opened Then
......
ElseIf Forms("EMS编辑").Opened Then
......
ElseIf Forms("常用文书").Opened Then
......
......
End If
Forms("批量增加").close
-------------
我用老师提供的下列代码测试，当并列窗口显示后，再打开"批量增加"窗口时，计划代码运行
ActiveForm显示为两个窗口。点击“批量增加”按钮后，数据没有加进显示的并列窗口的表中。
请老师看看怎样修改上面的判断代码？
谢谢！
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
output.show(frm.name)
End If
output.show("---------------")
Dim frm1 As WinForm.Form = Forms.ActiveForm
If frm1 IsNot Nothing Then
output.show(frm1.name)
End If
output.show("········")
加好友 
发短信
Post By：2018/3/7 16:31:00 [显示全部帖子]
