| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求按下“记录窗口”按钮后，打开，再次按下后，关闭“记录窗口”，应该怎么设置？ (http://www.foxtable.com/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 -- 谢谢老师 |