I need to find out if data on the form has been changed/edited by a user in VB 2005. I think there is a event "HASCHANGES". How do i implement this ? If the user has made changes to date, a messagebox must pop up asking to save changes or ignore changes.
Alex
PublicClass Form1
WithEvents dt AsNew CostingDataSet.Bill_TypesDataTable
Private ds AsNew DataSet
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
dt.TableName = "dt"
ds.Tables.Add(dt)
Me.Bill_TypesTableAdapter.Fill(ds.Tables("dt"))Me.BillTypesBindingSource.DataSource = ds.Tables("dt")EndSub PrivateSub dt_ColumnChanged(ByVal sender AsObject, ByVal e As System.Data.DataColumnChangeEventArgs) Handles dt.ColumnChanged'If e.Column.ColumnName Then ' This condition if columnname maps to date. IfNot e.ProposedValue.ToString = "myCondition"Thene.Row.RejectChanges()
Else SelectCase MsgBox("Save?", MsgBoxStyle.YesNo)Case MsgBoxResult.YesMe.Bill_TypesTableAdapter.Update(Me.ds.Tables("dt"))Case MsgBoxResult.Noe.Row.RejectChanges()
EndSelect EndIf 'End If EndSubEndClass
