主题：判断节假日是否应带薪(狐爸帮我看看好吗)

我写了一个流程语句，不知道理解的对不对？

Dim dt As DataTable = DataTables("考勤")
For Each dr As DataRow In dt.DataRows
    Dim d1 as Date = dr("日期")
    if d1.dayofweek = 0 Then
        d1 = d1.AddDays(-d1.dayofweek-6)
        Dim d2 as Date = d1.AddDays(-d1.dayofweek+7)
        Dim Sum As Integer = dt.Compute("Sum(请假工时)","姓名 = '" & dr("姓名") & "' And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#")
        if Sum < 8 Then
            dr("带薪工时判断条件_星期几为0_带薪工时值") = 8
        Else
            dr("带薪工时判断条件_星期几为0_带薪工时值") = Nothing
        End If
    End If
Next

你的问题说老实话很难理解，所以我只写了一个判断请假工时的。

如果判断星期几为0，应该这样吧。

Dim dt As DataTable = DataTables("考勤")
For Each dr As DataRow In dt.DataRows
    if dr("星期几") = 0 Then
        Dim d1 as Date = dr("日期")
        Dim Sum As Integer = dt.Compute("Sum(请假工时)","姓名 = '" & dr("姓名") & "' And 日期 >= #" & d1.AddDays(-6) & "# And 日期 <= #" & dr("日期") & "#")
        if Sum < 8 Then
            dr("带薪工时判断条件_星期几为0_带薪工时值") = 8
        Else
            dr("带薪工时判断条件_星期几为0_带薪工时值") = Nothing
        End If
    End If
Next

呵呵，这样肯定不行的，我写的是流程语句是按钮代码，是一次性重算的。
放到事件中你要舍弃循环语句，改成e.DataRow，这样才可以只计算触动行

改成这样看看？

Dim dt1 As DataTable = e.DataTables
Dim dr2 As DataRow = e.Datarow
if dr2("星期几") = 0 Then
    Dim d1 as Date = dr2("日期")
    Dim Sum As Integer = dt1.Compute("Sum(主管考勤工时_请假)","姓名 = '" & dr2("姓名") & "' And 日期 >= #" & d1.AddDays(-6) & "# And 日期 <= #" & dr2("日期") & "#")
    if Sum < 8 Then
        dr2("节假日带薪工时") = 8
    Else
        dr2("节假日带薪工时") = Nothing
    End If
Else
    dr2("节假日带薪工时") = Nothing
End If

楼上的代码没经过测试的，你测试一下看看行不行？

那你就改成DataTables("主管考勤")

压缩项目，删除Catch文件夹，重启项目。