网格部件一次填入多条数据时,有可能会填漏掉某个地方,但有些重要的字段信息又是必须填写的,那么如何做到在保存前判断必填字段是否都填写了内容呢?请看下列代码
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
原文地址:http://bbs.delit.cn/thread-653-1-1.html
转载请注明出处;
撰写人:度量科技http://www.delit.cn
时间: 2024-10-05 21:33:02