Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口控件数值的变化锁定问题


  共有2277人关注过本帖树形打印复制链接

主题:[求助]窗口控件数值的变化锁定问题

帅哥哟,离线,有人找我吗?
紫色幽魂
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
[求助]窗口控件数值的变化锁定问题  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
紫色幽魂
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:5399 威望:0 精华:0 注册:2015/1/23 0:31:00
回复:(有点蓝)试试If yjgj.Value Is Nothing Then&...  发帖心情 Post By:2018/6/30 11:39:00 [只看该作者]

谢谢,我试了好多中方法都木有成功

 回到顶部