主题：批量修改数据

贴出不行的代码看看，还有错误提示

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {要查的表}"
dt = cmd.ExecuteReader()
For Each r1 As DataRow In dt.DataRows
    For Each r2 As DataRow In DataTables("内部表").DataRows
        If r2("第一列") = r1("第一列") Then
         Dim c1 As New SQLCommand

         c1.C
         c1.CommandText = "UPDATE {要查的表} SET 第二列 = r2("第二列") WHERE 第一列 = r2("第一列")"
         c1.ExecuteNonQuery()
        End if
    Next
Next

写的  有点急   模型就这样   剩下你 自己 修改 一下   原理就这样