主题：怎么锁定知道行

你可以指定列：

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() '填充数据
   
    Dim nms() As String = {"要更新的列1","要更新的列2","要更新的列3","要更新的列4"}
    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 nm As String in nms
                dr(nm) = fdr(nm)
            Next
        End If
    Next
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
            dr("某列1") = fdr("某列1")
            dr("某列2") = fdr("某列2")
            dr("某列3") = fdr("某列3")
            dr("某列4") = fdr("某列4")
        End If
    Next
Next