VB 检测绑定控件值是否被修改.rar

VB检测绑定控件值是否被修改，Data控件的标题设为当前记录号加1，如果被修改则以MsgBox的方式弹出提示。下面是相关代码：　　PrivateSubData1_Reposition()　　Data1.Caption=Data1.Recordset.AbsolutePosition1'Data控件的标题设为当前记录号加1　　EndSub　　PrivateSubData1_Validate(ActionAsInteger,SaveAsInteger)　　DimanAsInteger　　IfSaveThen'如果被修改则提示　　an=MsgBox("数据被修改，