For Each dr As DataRow In DataTables("抄表记录").DataRowsdr("抄表日期") = Date.TodayNex
或者
DataTables("抄表记录").ReplaceFor("抄表日期",Date.Today)
http://www.foxtable.com/help/topics/1532.htm