>>739 レスありがとうです。 現状は、 Dim dvHogeHoge As DataView Dim cm As CurrencyManager DateTimePickre.DataBindings.Add("Text",dvHogeHoge,"HIDUKE") みたいな感じになってるので、 If DateTimePickre.Text = "" Then dvHogeHoge(cm.Position)("HIDUKE") = Now() End If ってな感じで試してみようと思います。