主题：请大师看看这段代码

 Case "审核"
        If e.NewValue IsNot Nothing Then
            If e.DataRow.GetChildRows("采购合同明细").count>0 Then
                For Each drr As DataRow In e.DataRow.getchildrows("采购合同明细")
                    drr("审核")=e.DataRow("审核")
                    drr.save
                Next
            End If
            If e.NewValue=True Then
                MessageBox.show("审核成功!")
                e.DataRow("审核人")=_username
                e.DataRow("审核日期")=Functions.Execute("stime","A5 ERP")
               
                If MessageBox.Show("是否发送信息通知相关操作员?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=DialogResult.Yes Then
                    djlx="采购合同"
                    bhlx="采购合同号"
                    djbh=e.DataRow("采购合同号")
                    msg="编号为:【" & e.DataRow("采购合同号") & "】的【" & e.DataTable.Name & "】通过审核,请尽快处理!"
                    Forms("信息").show
                   
                End If
            Else
                If e.DataRow.RowState<>DataRowState.Detached Then
                    MessageBox.show("反审核成功!")
                    e.DataRow("审核人")=Nothing
                    e.DataRow("审核日期")=Nothing
                End If
            End If
            e.DataRow.save
        End If

 

这个代码目前有个问题 经常出现父行的审核=true了 子行却还是false 但大部分时候都是运作正常  非常郁闷

 

 

 代码没有错，会不会是你的 子表 数据没有加载完全？getchildrows("采购合同明细")的时候，有些后台的数据并没有获取到？

 

 

我在父表的afterload事件中已经有同步字表的代码了

datatables("子表").SQLReplaceFor("审核",e.DataRow("审核"),"关联列='" & e.datarow("关联列") & "'")

 可能是改变了关联列的内容，导致最后数据匹配不上。

 

 单纯这段代码是没有问题的。你自己测试一下怎么出错的吧。别人怎么猜？

主要是这个代码大部分时候都是OK的 偶尔失灵  摸不着头脑