Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
时间 =Adodc1.Recordset.Fields("入账日期").Value（这里不知道，该如何去获取之前编辑过的值）
If 时间 <> 1 Then
MsgBox "aa"
Cancel = True
Exit Sub
Else
MsgBox "ee"
Cancel = True
End If
End Sub
上述是我想在录入datagrid数据中起到一个验证录入的功能，但是我不知道如何在beforeupdate中去获取需要那个需要判断的值，很是苦恼，
还请大师指点啊。。谢谢啊！！！

Adodc1.Recordset.Fields("入账日期").Value 是没编辑过的值
DataGrid1.text 是编辑过的值

[ 本帖最后由 Artless 于 2014-2-9 12:27 编辑 ]

问题已解决，谢谢版主！