- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 找出两个表中不同的‘一级代码’－解决了！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3134)
-- 发布时间：2009/6/13 22:40:00
-- [求助] 找出两个表中不同的‘一级代码’－解决了！
下面两段代码分别列出了各表中的不重复的一级代码，怎样找出【余额表】中有 而【总帐】中没有的一级代码，谢谢（有点晕了）
Dim yjdm As List(Of String)
yjdm = DataTables("总帐").GetUniqueValues("", "一级代码")
Dim qckm As List(Of String)
qckm = DataTables("余额表").GetUniqueValues("", "一级代码")
[此贴子已经被作者于2009-6-14 21:54:30编辑过]
-- 发布时间：2009/6/13 23:33:00
--
目前好象只能通过临时表来中转吧。
-- 发布时间：2009/6/13 23:35:00
--
以下是引用八婺在2009-6-13 23:33:00的发言：
目前好象只能通过临时表来中转吧。
目前好象只能通过临时表来中转吧。
应该这样的，谢谢～
-- 发布时间：2009/6/14 8:28:00
--
Dim yjdm As List(Of String)
yjdm = DataTables("总帐").GetUniqueValues("", "一级代码")
Dim qckm As List(Of String)
qckm = DataTables("余额表").GetUniqueValues("", "一级代码")
for each s as string in qckm
if yjdm.contains(s) = false Then
output.show(s)
End if
next
看来我要在帮助中介绍一下这个Contains方法才行。
[此贴子已经被作者于2009-6-14 8:39:53编辑过]
-- 发布时间：2009/6/14 21:23:00
--
以下是引用狐狸爸爸在2009-6-14 8:28:00的发言：
Dim yjdm As List(Of String)
yjdm = DataTables("总帐").GetUniqueValues("", "一级代码")
Dim qckm As List(Of String)
qckm = DataTables("余额表").GetUniqueValues("", "一级代码")
for each s as string in qckm
if yjdm.contains(s) = false Then
output.show(s)
End if
next
看来我要在帮助中介绍一下这个Contains方法才行。
Dim yjdm As List(Of String)
yjdm = DataTables("总帐").GetUniqueValues("", "一级代码")
Dim qckm As List(Of String)
qckm = DataTables("余额表").GetUniqueValues("", "一级代码")
for each s as string in qckm
if yjdm.contains(s) = false Then
output.show(s)
End if
next
看来我要在帮助中介绍一下这个Contains方法才行。
[此贴子已经被作者于2009-6-14 8:39:53编辑过]
哈哈～ 用上contains后，如此简单，你知道我的代码有多长吗？ 写了30多行啊～ 
写代码就是个思路问题，当然还有熟练运用关键词（如：Contains），其实最新不少地方我用过Contains的，我等不熟练啊～ 不能怪别人啦···