主题：怎么锁定知道行

没有免费版哦，只有试用版啊，如果是自己用的话，可以去买个盗版的玩玩，几块钱。数据丢失/被锁自负

可以给一个代码吗？实现这个作用将一个表的信息填充到别的表格后，一个循环可以自动比较几张表的信息有没有和第一张表不同的，并且将第一张表所以同步到其他表，加上文字说明及更好了。

 还是之前的那个例子，用下面的代码

谢谢啊，一直麻烦你

后面是检索有没有名字漏的吗？我想用学号来代替要好点。

这段代码是将第一张表的信息全部复制到其他表，并且检验一下，问一下，如果第一张 表里面没有的，别的表里面有的信息会不会被覆盖。

 这段代码的意思是 首先填充其他表没有的数据，然后更新其他表对应名字的行为第一张表的行，其他表在第一张表没有出现的学号，不会更新。

是更新整行吗？只能更新没行的前4列的。因为后面的成绩是不同的，这样要求这个代码怎么改呢？

你可以指定列：

 

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

现在想把软件优化一下，上面代码是先比较前面成绩低于60就为不及格，现在想改一下，如果该学生没选这门课这门课程成绩是0，这是上面代码处理结果不及格，显然不合适，怎么改一下做到，低于60为不及格，如果为0就不判断为不及格。代码怎么改合适呢！