以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查找写入不重复的值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169050)
--  作者：bzqlyj
--  发布时间：2021/5/31 14:42:00
--  查找写入不重复的值
请问，通过代码查找并写如表B中，对查找的数据与表B中的数据对比，重复的不写入表B中，不重复的写入表B中，如何增加条件
Dim aa As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d1 As Date = new Date(cint(aa.Value),12,31)
Dim d2 As Date = new Date(cint(aa.Value),1,1)
Dim d3 As Date =d1.AddYears(1)
MessageBox.Show(d3)
Dim drs As List(of DataRow)
drs = DataTables("表A").Select("(lrsj<=#" & d1 & "# and zt=\'F\') or (jcsj>=#" & d2 & "# and jcsj <= #" & d3 & "#) and zt=\'T\'")
Dim dr1 As DataRow
For Each dr As DataRow In drs    
    dr1 = DataTables("表B").AddNew
    dr1("年度") = d1.Year
    dr1("bh")  = dr("bh")
    dr1("xly")  = dr("xly")
    dr1("lrsj") =dr("lrsj")
    dr1("jcsj") = dr("jcsj")    
Next
--  作者：有点蓝
--  发布时间：2021/5/31 14:43:00
--  
请不要发重复的问题：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=169044