【文件属性】：
文件名称：VB 检测绑定控件值是否被修改.rar
文件大小：5KB
文件格式：RAR
更新时间：2022-07-30 11:27:19
VB源码-数据库实例
VB 检测绑定控件值是否被修改，Data控件的标题设为当前记录号加1，如果被修改则以MsgBox的方式弹出提示。下面是相关代码：
Private Sub Data1_Reposition()
Data1.Caption = Data1.Recordset.AbsolutePosition 1 'Data控件的标题设为当前记录号加1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Dim an As Integer
If Save Then '如果被修改则提示
an = MsgBox("数据被修改，是否保存？", vbQuestion vbYesNo, "确认")
If an = vbYes Then
Save = True '保存修改
Else
Save = False
End If '拒绝修改
End If
【文件预览】：
srcfans.com
----MsgBox()
--------E409.vbp(839B)
--------Form1.frm(4KB)
--------student.mdb(50KB)
--------MSSCCPRJ.SCC(331B)
--------E409.vbw(50B)