主题：请教个2表同步问题

做一个按钮，执行代码

DataTables("统计").DataRows.Clear
For Each dr As DataRow In DataTables("明细").Select("项目 is not null")
    Dim fdr As DataRow  ' = DataTables("统计").Find("项目 = '" & dr("项目") & "'")
    'If fdr Is Nothing Then
        fdr =  DataTables("统计").AddNew
        fdr("项目") = dr("项目")
    'End If
    If  DataTables("统计").DataCols.Contains(dr("星期")) Then
        fdr(dr("星期")) = "√"
    End If
Next