以文本方式查看主题 - 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=132328) |
-- 作者:jyh7081 -- 发布时间:2019/3/19 21:55:00 -- 记录窗口录入时报错 老师好! 如图,录入窗口的3个记录窗口同时绑定窗口表Tables("工程数据_Table1") ,当双击记录窗口准备编辑时,弹出报错窗口,是哪里的问题? afterload代码如下: If Forms("工程数据").opened Then Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1") rgd.Table = Tables("工程数据_Table1") \'指定绑定表 rgd.Columns = "工程名称|委托方|施工方" rgd.Build() \'重新生成记录窗 Dim brgd = rgd.BaseControl brgd.VisualStyle = 4 brgd.Styles.normal.Border.Style = 1 brgd.styles.Normal.Border.Color = Color.red brgd.styles.Normal.Border.width = 1 brgd.font = new font("宋体", 10) Dim h As Integer = (rgd.Height -3) / brgd.Rows.count For i As Integer = 0 To brgd.Rows.count-1 brgd.Rows(i).height = h Next Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2") rgd2.Table = Tables("工程数据_Table1") \'指定绑定表 rgd2.Columns = "报告类别|合同编号|合作单位|合作负责人|报送联系人|编制人|项目负责人|二级复核人|复核人|报送份数" rgd2.Build() \'重新生成记录窗 Dim brgd2 = rgd2.BaseControl brgd2.VisualStyle = 4 brgd2.Styles.normal.Border.Style = 1 brgd2.styles.Normal.Border.Color = Color.red brgd2.styles.Normal.Border.width = 1 brgd2.font = new font("宋体", 10) Dim h2 As Integer = (rgd2.Height -2) / brgd2.Rows.count For i2 As Integer = 0 To brgd2.Rows.count-1 brgd2.Rows(i2).height = h2 Next Dim rgd3 As WinForm.RecordGrid = e.Form.Controls("RecordGrid3") rgd3.Table = Tables("工程数据_Table1") \'指定绑定表 rgd3.Columns = "报审值|审定值|增减值|报送日期|接收日期|二级复核单发送日期|正式报告收到日期|公司盖章寄回日期|存档日期|附件" rgd3.Build() \'重新生成记录窗 Dim brgd3 = rgd3.BaseControl brgd3.VisualStyle = 4 brgd3.Styles.normal.Border.Style = 1 brgd3.styles.Normal.Border.Color = Color.red brgd3.styles.Normal.Border.width = 1 brgd3.font = new font("宋体", 10) Dim h3 As Integer = (rgd3.Height -2) / brgd3.Rows.count For i3 As Integer = 0 To brgd3.Rows.count-1 brgd3.Rows(i3).height = h3 Next End If |
-- 作者:有点蓝 -- 发布时间:2019/3/19 21:58:00 -- 双击事件加一句 e.cancel = true 双击事件代码贴出来
|
-- 作者:jyh7081 -- 发布时间:2019/3/19 22:08:00 -- 但是记录窗口没有事件可以编辑 |
-- 作者:jyh7081 -- 发布时间:2019/3/19 22:18:00 -- 第一次双击记录窗口会报错,关闭报错窗口后,再双击记录窗口的其他单元格,就不会报错了,是什么原因? |
-- 作者:有点蓝 -- 发布时间:2019/3/19 22:25:00 -- 记录窗口的事件就是绑定的表的事件 |
-- 作者:jyh7081 -- 发布时间:2019/3/19 22:28:00 -- 行了,谢谢蓝老师! |