主题：[求助]请问是否只有一个datatable的一个save事件用于保存？

请问是否只有一个datatable的一个save事件用于保存？如果是的话除开写代码外是否还有什么事件会触发此事件？

点击系统保存按钮.   行也有单独的Save方法

盘点报表_AfterLoad

 Dim pdrq As WinForm.DateTimePicker = e.Form.Controls("盘点日期")

Dim xs As WinForm.CheckBox = e.Form.Controls("显示0库存")

pdrq.Value = Date.Today

xs.Checked = False

DataTables("盘点报表").DeleteFor("物料编码 is null")

Tables("盘点报表").Filter = "[_Identify] Is Null"

 盘点报表_BeforeClose

 For i As Integer = 0 To Tables("盘点报表主").Rows.Count-1

    Dim dr As Row = Tables("盘点报表主").Rows(i)

    If dr("状态")="待生成" Then

        DataTables("盘点报表").DeleteFor("[状态]='待生成'")

         dr.Delete

    End If

Next

 

盘点报表_保存_Click

 If  Tables("盘点报表主").CanUndo Then

    Dim r As DataRow =DataTables("盘点报表主").Find("盘点单号 Is null")

    Dim max As String = DataTables("盘点报表").Compute("max(盘点单号)")

    Dim pddh As WinForm.TextBox = e.Form.Controls("盘点单号")

    If r Is Nothing Then

        Return

    Else

        pddh.text=max+1

    End If

    DataTables("盘点报表主").Save()

    If Tables("盘点报表").CanUndo Then

        DataTables("盘点报表").Save()

        MessageBox.Show("数据保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Else

        MessageBox.Show("数据保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

Else

    If Tables("盘点报表").CanUndo Then

        DataTables("盘点报表").Save()

        MessageBox.Show("数据保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

End If

 盘点报表_返回_Click

 Dim Result As DialogResult

If Tables("盘点报表").CanUndo Or Tables("盘点报表主").CanUndo Then

    Result=MessageBox.Show("数据已修改,是否保存已修改数据!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)

    If Result=DialogResult.Yes Then

        DataTables("盘点报表主").Save()

        DataTables("盘点报表").Save()

        Forms("盘点报表").Close()

    Else

        Return

    End If

Else

    DataTables("盘点报表主").Save()

    DataTables("盘点报表").RejectChanges

    Forms("盘点报表").Close()

End If

 

盘点报表_库存清单_Click

 Dim xs As WinForm.CheckBox = e.Form.Controls("显示0库存")

DataTables("盘点报表主").AddNew

If xs.Checked=True Then

    For i As Integer = 0 To DataTables("库存总表").DataRows.Count-1

        Dim r As DataRow = DataTables("库存总表").DataRows(i)

        Dim dr As Row = Tables("盘点报表主.盘点报表").AddNew

        dr("物料编码")=r("物料编码")

        dr("非限制")=r("非限制")

        dr("质检")=r("质检")

        dr("冻结")=r("冻结")

    Next

Else

    For i As Integer = 0 To DataTables("库存总表").DataRows.Count-1

        Dim r As DataRow = DataTables("库存总表").DataRows(i)

        If r("非限制")+r("冻结")+r("质检")+0 > 0 Then

            Dim dr As Row = Tables("盘点报表主.盘点报表").AddNew

            dr("物料编码")=r("物料编码")

            dr("非限制")=r("非限制")

            dr("质检")=r("质检")

            dr("冻结")=r("冻结")

        End If

    Next

End If

请问以上代码中除了保存和返回按钮外还有其他什么代码会触发SAVE事件？

没了