主题：向下填充， TIAN， please come here :)

DatacolChanged

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