以下是打开窗口表的记录窗口的代码，求按下“记录窗口”按钮后，打开，再次按下后，关闭“记录窗口”，应该怎么设置？
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
加好友 
发短信
Post By：2019/5/5 16:47:00 [只看该作者]
Post By：2019/5/5 16:50:00 [只看该作者]
