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