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

呵呵，这样肯定不行的，我写的是流程语句是按钮代码，是一次性重算的。
放到事件中你要舍弃循环语句，改成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

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

还是不行，我关闭代码编辑器窗口就提示出错：


此主题相关图片如下：未命名.gif

还有现在我的项目怎么在保存是会弹出以下窗口，以前都正常：

此主题相关图片如下：未命名1.gif

代码中的e.DataTables，应该改为：DataTables

按狐爸的改了还是提示出错：

此主题相关图片如下：未命名2.gif

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

还是会死机

我放到示范项目有可以