For Each dr as DataRow in DataTables("Zstb").DataRows For Each dr1 as Datarow in DataTables("Zszy").Datarows For Each dc as Datacol in DataTables("Zszy").Datacols dr(dc.name) = "错误" if dr(dc.name) = dr1(dc.name) then dr(dc.name) = "" end if next next Next