主题：怎么锁定知道行

Dim tbnames() As String = {"第一科", "第二科", "第三科", "第四科", "第五科"}

Dim stbname As String = tbnames(0)

For i As Integer = 1 To tbnames.Length - 1

    Dim f As New Filler

    f.SourceTable = DataTables(stbname) '指定数据来源

    f.DataTable = DataTables(tbnames(i)) '指定数据接收表

    f.ExcludeExistValue = True

    f.Fill() '填充数据

Next

Dim tbnames() As String = {"第一科", "第二科", "第三科", "第四科", "第五科"}

Dim stbname As String = tbnames(0)

For i As Integer = 1 To tbnames.Length - 1

    Dim f As New Filler

    f.SourceTable = DataTables(stbname) '指定数据来源

    f.SourceCols = "组号,学号,班级,姓名"

    f.DataTable = DataTables(tbnames(i)) '指定数据接收表

    f.DataCols = "组号,学号,班级,姓名"

    'f.ExcludeExistValue = True

    f.Fill() '填充数据

    

    For Each dr As DataRow In DataTables(tbnames(i)).DataRows

        Dim fdr As DataRow = DataTables(stbname).Find("姓名 = '" & dr("姓名") & "'")

        If fdr IsNot Nothing Then

            For Each dc As DataCol In DataTables(tbnames(i)).DataCols

                dr(dc.Name) = fdr(dc.Name)

            Next

        End If

    Next

Next