以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据某列的内容不同,生成相应的记录窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188591)

--  作者:1234567
--  发布时间:2023/9/30 18:02:00
--  根据某列的内容不同,生成相应的记录窗口
老师:根据工序列的内容,生成相应的记录窗口,下列代码哪里错了?

Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
rgd2.Table = Tables("报价系统_Table2") \'指定绑定表
If Tables("报价系统_Table2").current("工序") = "车床"Then
rgd2.Columns = "材料长度|材料宽度|材料高度"
End If
rgd2.Build() \'重新生成记录窗口

--  作者:wyz20130512
--  发布时间:2023/10/1 19:55:00
--  
1.什么事件代码?

2.报什么错?

--  作者:1234567
--  发布时间:2023/10/1 21:24:00
--  希望,当工序选择为车床时,记录窗口只出现车床1和车床2两项.
daiDim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd2.Table = Tables("窗口1_Table1") \'指定绑定表
If Tables("窗口1_Table1").current("工序") = "车床"Then
rgd2.Columns = "车床1|车床2"
End If
rgd2.Build() \'重新生成记录窗口

--  作者:1234567
--  发布时间:2023/10/1 21:34:00
--  
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2023/10/2 23:04:00
--  
代码放在什么事件的?
--  作者:1234567
--  发布时间:2023/10/3 6:43:00
--  

代码放在表事件的PrepareEdit上,有一个问题,窗口设计器预览后,点击关闭按钮,预览无法关闭,必须强制退出系统后再重启。


--  作者:有点蓝
--  发布时间:2023/10/3 9:30:00
--  
PrepareEdit事件不适合做这种功能,放到currentchanged事件。

另外应该是做了独立窗口嵌入其它窗口的用法,预览才无法关闭,这种用法不受官方支持,也建议不要使用

--  作者:1234567
--  发布时间:2023/10/6 21:49:00
--  
图片点击可在新窗口打开查看

老师,什么独立窗口嵌入其它窗口?是我新建一个窗口1,然后在窗口1增加了一个RecordGrid1控件,是不是属于独立窗口嵌入其它窗口?

--  作者:有点蓝
--  发布时间:2023/10/7 9:27:00
--  
代码放到currentchanged事件,如果还有问题,请上传实例测试