共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助] 找出两个表中不同的‘一级代码’－解决了！
1楼
mr725 发表于：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编辑过]
2楼
八婺 发表于：2009/6/13 23:33:00目前好象只能通过临时表来中转吧。
3楼
mr725 发表于：2009/6/13 23:35:00以下是引用八婺在2009-6-13 23:33:00的发言：
目前好象只能通过临时表来中转吧。
目前好象只能通过临时表来中转吧。
应该这样的，谢谢～
4楼
狐狸爸爸 发表于：2009/6/14 8:28:00Dim 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方法才行。
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编辑过]
5楼
mr725 发表于：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的，我等不熟练啊～ 不能怪别人啦···
共5 条记录, 每页显示 10 条, 页签:
[1]