以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求按下“记录窗口”按钮后，打开，再次按下后，关闭“记录窗口”，应该怎么设置？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134739)
--  作者：fengwenliuyan
--  发布时间：2019/5/5 16:47:00
--  求按下“记录窗口”按钮后，打开，再次按下后，关闭“记录窗口”，应该怎么设置？
以下是打开窗口表的记录窗口的代码，求按下“记录窗口”按钮后，打开，再次按下后，关闭“记录窗口”，应该怎么设置？

If CurrentTable.DataTable.Name = "入库订单表" Then \'如果选择的主表是订单表
    Dim rgd As WinForm.RecordGrid = e.Form.Controls("记录窗口")
    rgd.Table = Tables("仓管表窗口_入库订单表") \'指定绑定表
    Select Case User.Group
        Case "开发者","管理员"
            rgd.Columns = "客户|结算方式|订单日期|订单编号|客户凭证|入库员|来货方式|来货司机|订单备要|订单照片|结_单|编辑者|用户名"
        Case Else
            rgd.Columns = "客户|结算方式|订单日期|订单编号|客户凭证|入库员|来货方式|来货司机|订单备要|订单照片|结_单"
    End Select
    rgd.Build() \'重新生成记录窗口
    Dim bctr = e.Form.Controls("记录窗口").BaseControl
    bctr.Cols(1).TextAlign = 4 \'自动设置各列数据居中显示(逻辑列除外)
    bctr.AutoSizeRows \'自动调整记录表中的各列内容的行高
End If
--  作者：有点甜
--  发布时间：2019/5/5 16:50:00
--  

If forms("窗口1").opened Then

    forms("窗口1").close

Else

    forms("窗口1").open

End If
--  作者：fengwenliuyan
--  发布时间：2019/5/5 16:51:00
--  
谢谢老师