增加一个日期列,然后在命令窗口执行:
for each dr as datarow in datatables(“表名”).DataRows
dr("日期") = New Date(2013,dr("月"),dr("日"))
next