主题：[求助]如果行的某列为空，那么此行无法锁定，代码应该怎么写？

[求助]如果行的某列为空，那么此行无法锁定，代码应该怎么写？

1、你锁定某行的代码怎么写的？贴出来看看；

 

2、看看

 

http://www.foxtable.com/webhelp/scr/0635.htm

 

http://www.foxtable.com/webhelp/scr/0636.htm

 

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

谢谢甜老师

甜老师，再请教一个问题，如果表中所有行中任意一行中操作日期，原料货号，出库标重有为空的都无法完成保存，代码应该怎么写啊？

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

谢谢老师