主题：错误捕获

Try

    Select Case _OperationType

        Case OperationTypeEnum.add

            For Each R As Row  In e.Form.Controls("Table1").Table.Rows

                If r.DataRow.RowState=DataRowState.Added

                    r.Save

                End If

            Next

            e.Form.Controls("txtzt").text="当前状态:查阅"

        Case OperationTypeEnum.edit

            For Each R As Row  In e.Form.Controls("Table1").Table.Rows

                If r.DataRow.RowState=DataRowState.Modified

                    r.Save

                End If

            Next

            e.Form.Controls("txtzt").text="当前状态:查阅"

    End Select

   

Catch ex As Exception

     if MessageBox.Show(ex.tostring,"向服务器提交数据错误!",MessageBoxButtons.OK) then

          e.Sender.Enabled =False

     end if

End Try