- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何求某表中二列的唯一值？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50792)
-- 发布时间：2014/5/13 19:01:00
-- 如何求某表中二列的唯一值？
如表A中有二列，其中部分“第一列”+“第二列”是重复的，
现在想把表工的数据去除重复值后，再放入表B的“第一列”，“第二列”中。
求代码。
[此贴子已经被作者于2014-5-13 19:08:06编辑过]
-- 发布时间：2014/5/13 19:44:00
--
做一个按钮，写入代码
For Each ary() As String In DataTables("表A").GetValues("第一列|第二列", "第一列 is not null and 第二列 is not null")
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = ary(0)
ndr("第二列") = ary(1)
Next
-- 发布时间：2014/5/13 20:49:00
--
嗯，完全正确。谢谢！
其中 GetValues("第一列|第二列", "第一列 is not null and 第二列 is not null")
用得太妙了，从中可以看到狐表代码的简洁。
学习了。
[此贴子已经被作者于2014-5-13 21:11:47编辑过]
-- 发布时间：2014/5/14 7:56:00
--
请问:如果于表A 第一列＋第二列＋第三列 取得唯一后,再导入表B 如何做??
-- 发布时间：2014/5/14 10:13:00
--
以下是引用tennis在2014-5-14 7:56:00的发言：
请问:如果于表A 第一列＋第二列＋第三列 取得唯一后,再导入表B 如何做??
同样的
For Each ary() As String In DataTables("表A").GetValues("第一列|第二列|第三列", "第一列 is not null and 第二列 is not null and 第三列 is not null")
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = ary(0)
ndr("第二列") = ary(1)
ndr("第三列") = ary(2)
Next
[此贴子已经被作者于2014-5-14 10:13:37编辑过]