以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]返回不同窗口执行不同的任务  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90601)
--  作者：zswushi
--  发布时间：2016/9/18 9:14:00
--  [求助]返回不同窗口执行不同的任务
请问下，我在 货品出库 开单界面， 单击开单后，打开客户管理界面   我要求，若打开了 货品出库开单界面 ，就返回开单界面，若没有打开，就直接返回主窗口，但客户管理退出  按钮代码 ，怎么不运行，谢谢
软件●投资 16:05:34
Dim frm As WinForm.Form = Forms("客户管理")
Dim frp As WinForm.Form = Forms("出库开单")

If frp.Opened Then
    Dim r As Row = Tables("客户表").current
    Forms("出库开单").Controls("TextBox4").text = r("客户编号")
    Forms("出库开单").Controls("TextBox5").text = r("客户名称")
    frm.close()
    frp.open()
    MainTable = Tables("客户表")
Else
    frm.close()
End If
--  作者：有点蓝
--  发布时间：2016/9/18 10:29:00
--  
代码没有问题，上例子说明

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
--  作者：zswushi
--  发布时间：2016/9/19 10:40:00
--  
我自己增加了个副表窗口，解决啦，谢谢