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