| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如果行的某列为空，那么此行无法锁定，代码应该怎么写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119799) |
| -- 作者：1669607010 -- 发布时间：2018/6/1 9:23:00 -- [求助]如果行的某列为空，那么此行无法锁定，代码应该怎么写？ [求助]如果行的某列为空，那么此行无法锁定，代码应该怎么写？ |
| -- 作者：有点甜 -- 发布时间：2018/6/1 10:02:00 -- 1、你锁定某行的代码怎么写的？贴出来看看；
2、看看
http://www.foxtable.com/webhelp/scr/0635.htm
http://www.foxtable.com/webhelp/scr/0636.htm
|
| -- 作者：1669607010 -- 发布时间：2018/6/1 11:16:00 -- 老师，我想实现点击一个“保存”按钮时，如果操作日期,原料货号,出库标重三列都不为空时锁定行后保存，如果三列中任意一列为空那么提示"操作日期,原料货号,出库标重不能为空,请完整录入原料出库信息!"，下面的代码要怎么改？ If 操作日期 Is Null or 原料货号 Is Null or 出库标重 Is Null Then MessageBox.Show("操作日期,原料货号,出库标重不能为空,请完整录入原料出库信息!" , "提示",MessageBoxButtons.OK ,MessageBoxIcon.Warning) Else Syscmd.Row.Lock() DataTables("外购原料出库").Save(True) End If
|
| -- 作者：有点甜 -- 发布时间：2018/6/1 11:33:00 -- Dim r As Row = Tables("外购原料出库").Current If r.isnull("操作日期") OrElse r.isnull("原料货号") OrElse r.isnull("出库标重") Then MessageBox.Show("操作日期,原料货号,出库标重不能为空,请完整录入原料出库信息!" , "提示",MessageBoxButtons.OK ,MessageBoxIcon.Warning) Else r.Locked = True r.save End If |
| -- 作者：1669607010 -- 发布时间：2018/6/1 14:19:00 -- 谢谢甜老师 |
| -- 作者：1669607010 -- 发布时间：2018/6/1 14:56:00 -- 甜老师，再请教一个问题，如果表中所有行中任意一行中操作日期，原料货号，出库标重有为空的都无法完成保存，代码应该怎么写啊？ |
| -- 作者：有点甜 -- 发布时间：2018/6/1 15:16:00 -- Dim dr As DataRow = DataTables("外购原料出库").Find("操作日期 is null or 原料货号 is null or 出库标重 is null") If dr IsNot Nothing Then MessageBox.Show("操作日期,原料货号,出库标重不能为空,请完整录入原料出库信息!" , "提示",MessageBoxButtons.OK ,MessageBoxIcon.Warning) Else DataTables("外购原料出库").save End If |
| -- 作者：1669607010 -- 发布时间：2018/6/1 15:17:00 -- 谢谢老师 |