Case "进场日期"
If e.OldValue <> Nothing Then drs = DataTables("进料明细表").Select("进场日期 = #" & e.OldValue & "#")
End If