主题：此段代码有问题

for i as Integer = 0 to Tables("中招报名").rows.count - 1
    for each dc as col in Tables("中招报名").cols
        if Tables("中招报名")(i,dc.name) <> Tables("中招报名5月10日")(i,dc.name) then
            Tables("中招报名5月10日")(h,"核对情况") = "数据有误"
            exit for
        end if
    next
next

注意：红色的h是不是数字，不知道你是否在其它代码中定义过

这样才是正确的

for i as Integer = 0 to Tables("中招报名").rows.count - 1
    for each dc as col in Tables("中招报名").cols
        if Tables("中招报名")(i,dc.name) <> Tables("中招报名5月10日")(i,dc.name) then
            Tables("中招报名5月10日")(i,"核对情况") = "数据有误"
            exit for
        end if
    next
next