主题：重置列后发现的一个问题

If e.DataCol.Name = "休息"
    systemready = False
    For Each dr As DataRow In DataTables("派工表").Select("日期 = #" & e.DataRow("日期") & "#")
        dr("休息") = e.DataRow("休息")
    Next
    systemready = True
End If

改成

If e.DataCol.Name = "休息" AndAlso e.NewValue <> e.OldValue Then
    systemready = False
    For Each dr As DataRow In DataTables("派工表").Select("日期 = #" & e.DataRow("日期") & "#")
        dr("休息") = e.DataRow("休息")
    Next
    systemready = True
End If