- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么不添加重复的数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76520)
-- 发布时间：2015/10/31 8:46:00
-- [求助]怎么不添加重复的数据
将图上上面表的数据导入到下面的表中，但是不重复导入已经存在的数据，使用的是批量导入
此主题相关图片如下：qq图片20151031084055.jpg
[此贴子已经被作者于2015/10/31 8:47:00编辑过]
-- 发布时间：2015/10/31 9:21:00
--
for each dr as datarow in datatables("上表").datarows
If DataTables("下表").Find("工号= \'" & dr("工号") & "\'") IsNot Nothing Then \'如果此工号已经存在,则跳过.
Continue For
End If
dim r as row = tables("下表").addnew()
r("工号") = dr("工号")
r("姓名") = dr("姓名")
r("性别") = dr("性别")
next
-- 发布时间：2015/10/31 9:22:00
--
Dim lst As String = DataTables("下面表").GetComboListString("工号")
Dim drs As List(Of DataRow)
drs = DataTables("上面表").Select("工号 not in (\'" & lst.Replace("|",",") & "\')")
把drs加入下面表
-- 发布时间：2015/10/31 9:26:00
--
用filler
[此贴子已经被作者于2015/10/31 9:26:10编辑过]
-- 发布时间：2015/11/2 11:33:00
--
http://www.foxtable.com/help/topics/1533.htm