主题：保存存时确保相关表单数据一致的办法？

单独做一个按钮保存，所有的保存转换成sql语句在一个事务里面执行。

不能用beforesavedatarow事件，这个是每保存一行都会触发一次的。

对比一下每一列的OriginalValue，不就知道有没有必要更新这一列了？

然后一行合成一条up date语句执行。

下面是分别获取各种的行（当然，你循环每一行，判断RowState也可以）

'根据DataTable获取一个System.Data.DataTable类型变量
Dim t As System.Data.DataTable = CurrentTable.DataTable.BaseTable
'获取新增行数
Dim t1 As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Added )   '新增行
If t1 IsNot Nothing Then Output.Show("新增" & t1.Rows.Count)
'获取修改行数
Dim t2 As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Modified )   '修改行
If t2 IsNot Nothing Then Output.Show("修改" & t2.Rows.Count)
'获取已删除行数
Dim t3 As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Deleted )   '已删除行
If t3 IsNot Nothing Then Output.Show("删除" & t3.Rows.Count)

For Each dr As DataRow In DataTables("表A").Select("")
    If dr.RowState = DataRowState.Modified Then
        Dim str As String = ""
        For Each dc As DataCol In DataTables("表A").DataCols
            If dr.OriginalValue(dc.name) <> dr(dc.name) Then
                str &= dc.name & "='" & dr(dc.name) & "',"
            End If
        Next
        msgbox(str.trim(","))
    End If
Next

Dim t As System.Data.DataTable = Tables("表A").DataTable.BaseTable
Dim tm As System.Data.DataTable = t.GetChanges(System.Data.DataRowState.Modified )   '新增行
For Each dr As object In tm.Rows
    Dim str As String = ""
    For Each dc As object In tm.Columns
        Dim obj1 = dr(dc, System.Data.DataRowVersion.Original)
        Dim obj2 = dr(dc)
        If obj1.Tostring <> obj2.Tostring Then
            str &= dc.ColumnName & "='" & dr(dc.ColumnName) & "',"
        End If
    Next
    msgbox(str.trim(","))
Next

https://msdn.microsoft.com/zh-cn/library/system.data.datatable_members%28v=vs.80%29.aspx

没必有实时更新，而且你更新的sql语句也不对，库存数量是入库的汇总减去出库的汇总，你这样更新很可能造成数量不正确。