For Each dr As DataRow In DataTables("样品表").DataRows
If dr.IsNull("完成日期")=False And dr("完成日期")> Date.today Then
dr("样品进度")="异常"
End If
Next
这样每次打开系统会自动修改样品进度!