以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于这段代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141396)
--  作者：ygg8310
--  发布时间：2019/9/28 10:24:00
--  关于这段代码

Dim Cols1() As String = {"姓名"，"学籍号""学科","考试成绩"}

Dim Cols2() As String = {"姓名","学籍号""数学","考试成绩"}

For Each dr1 As DataRow In DataTables("总成绩").Select("[学科] = \'数学\' And [考试成绩] > 90")

    Dim dr2 As DataRow = DataTables("数学已及格").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next


第一个问题：如何实现排除重复值？第二个问题：对于表中已存在的数据将不进行填充

[此贴子已经被作者于2019/9/28 10:37:29编辑过]
--  作者：有点蓝
--  发布时间：2019/9/28 10:40:00
--  
怎么样的才算是重复值？

先使用find查询，如果不存在，再新增
--  作者：dzy1232016
--  发布时间：2019/9/28 10:41:00
--  
看表样式，基本思路添加记录前先判断