做了一个考勤表，需要帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d As Date = "2018-10-01"
Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
For Each dr As DataRow In DataTables("考勤表").Select("姓名 is not null")
    For i As Integer = 1 To dr.DataTable.DataCols.count-1
        dr(dr.DataTable.DataCols(i).name) = Nothing
    Next
    For Each cdr As DataRow In DataTables("表A").Select(filter & " and 休息人员='" & dr("姓名") & "'")
        For i As Integer = 1 To dr.DataTable.DataCols.count-1
            Dim dc = dr.DataTable.DataCols(i)
            If dc.caption = cdate(cdr("日期")).day Then
                dr(dc.name) = 1
            End If
        Next
    Next
Next

主题：做了一个考勤表，需要帮助