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

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