如何得到输入的新值??
Private Sub dtgproducts_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
Dim strwrn As String
strWarn = " update the column value from '" & OldValue & "' to '" & dtgproducts.Columns(ColIndex).Value & "' ? "
If MsgBox(strWarn, vbYesNo + vbQuestion, "confirm update") = vbNo Then
Cancel = True
End If
End Sub
将DATAGRID中的内容更改时给出提示产,但是提示中from.....to.....中显示的为何都是旧值,to...中显示的并不是输入后的值。怎么才能得到输入的值。