[mr_hso]

(11-03-19, 01:41 AM)5000 كتب : جرب هذا التعديل
if DateTimePicker1.CustomFormat = " " then
dt.Rows(pos).Item(7) = DBNull.Value
else
dt.Rows(pos).Item(7) = DateTimePicker1.Value.date
end if

شكرا اخي بارك الله فيك