以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]窗口控件数值的变化锁定问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121162)

--  作者：紫色幽魂 --  发布时间：2018/6/30 11:04:00 --  [求助]窗口控件数值的变化锁定问题 已检构件控件是获取的这次需要写入的表的数据列，获取的最大值，在窗口第几根构件显示的是在已检构件数的基础上增加1的数值，在每次增加明细行的时候我希望锁定当前显示的第几根构件框内的数值，不管增加多少明细行，填入列表内的数据都是锁定的这个数值，结束的时候再解锁，但是现在每次增加明细的时候都会增加1，并不会锁定这个数值，这个需要怎么写 Dim yjgj As WinForm.TextBox = e.Form.Controls("已检构件") Dim zc As WinForm.TextBox = e.Form.Controls("构件数暂存") Dim djg As WinForm.NumericComboBox = e.Form.Controls("第几根构件") Dim xzh As Row = Tables("无损_构件清单.无损_检测明细").AddNew If yjgj.Value Is Nothing Then     xzh("构件数") = 1 Else     zc.Value = djg.Value     zc.ReadOnly = BooleanEnum.True \'锁定内容     xzh("构件数") = zc.Value End If

--  作者：有点蓝 --  发布时间：2018/6/30 11:23:00 --   试试 If yjgj.Value Is Nothing Then     zc.Value =1     zc.ReadOnly = BooleanEnum.True \'锁定内容 ElseIf zc.Value = ""     zc.Value = djg.Value     zc.ReadOnly = BooleanEnum.True \'锁定内容 End If xzh("构件数") = zc.Value

--  作者：紫色幽魂 --  发布时间：2018/6/30 11:39:00 --  回复：（有点蓝）试试If yjgj.Value Is Nothing Then&... 谢谢，我试了好多中方法都木有成功