网格部件判断字段内容不能为空

张兴康 · 发表于 2020-6-25 14:09:47

网格部件一次填入多条数据时，有可能会填漏掉某个地方，但有些重要的字段信息又是必须填写的，那么如何做到在保存前判断必填字段是否都填写了内容呢？请看下列代码

dim A = 1
dim dt=网格部件1.DataTable
for each dr in dt.Rows
if isnull(dr["字段名称"]) then
A = 0
exit for
end if
next
if A = 0 then
ShowInformation("请将xxxxx填写完整")
else
'提交单元和数据到行
网格部件1.PostEditor()

'提交行数据到DataTable
网格部件1.GridView.UpdateCurrentRow()

'BeginTrans()
'这儿操作数据库。
网格部件1.SaveData()
'判断事务执行结果
if CommitTrans()=false then
showerror(GetTransMessage())
end if
me.Output1 = "Y"
ShowInformation("保存成功")
me.Close()
end if