[求助]在狐表中这样的功能如何实现 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在狐表中这样的功能如何实现

共有5067人关注过本帖树形打印复制链接主题：[求助]在狐表中这样的功能如何实现

tus111

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：111 威望：0 精华：0 注册：2013/8/23 11:39:00

[求助]在狐表中这样的功能如何实现 发帖心情

Post By：2013/8/24 19:42:00 [只看该作者]

请问我想把文本文件中的数字如:
1 2 3 4
4 5 6 7
7 8 9 0
统计成为:
4 7 1 2 3 5 6 8 9 0

说明:数字按大小排序由左向右,如有重复的放在前面也按大小排序

这种想法该如何实现

看了软件的帮助别的功能都挺好的但这个功能一直没搞明白

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4761 积分：34613 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/8/24 20:26:00 [只看该作者]

上个例子就那么难吗

tus111

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：111 威望：0 精华：0 注册：2013/8/23 11:39:00

[求助]请大家帮忙 发帖心情

Post By：2013/8/24 20:31:00 [只看该作者]

是的一直没搞定

tus111

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：111 威望：0 精华：0 注册：2013/8/23 11:39:00

[求助]请大家帮忙 发帖心情

Post By：2013/8/24 20:32:00 [只看该作者]

加减乘除都没问题个数也可以就是这样搞不定高人们帮帮我好不

y2287958

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4761 积分：34613 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/8/24 20:34:00 [只看该作者]

至少也要上个项目文件吧

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/24 20:46:00 [只看该作者]

在命令窗口里执行下面的代码，参考着改一下。

Dim arys() As Integer = {9, 1, 2,3, 0, 4, 4, 5, 5, 6, 7, 8}

Array.sort(arys)

Dim prev As Integer = -999

Dim ls1 As New List(Of Integer)

Dim ls2 As New List(Of Integer)

For Each ary As Integer In arys

If prev = ary AndAlso ls1.Contains(ary) = False Then

ls1.Add(ary)

ls2.Remove(ary)

End If

If ls1.Contains(ary) = False Then

ls2.Add(ary)

prev = ary

End If

For Each l As Integer In ls1

output.Show(l)

For Each l As Integer In ls2

output.Show(l)

tus111

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：111 威望：0 精华：0 注册：2013/8/23 11:39:00

Post By：2013/8/24 21:11:00 [只看该作者]

哈哈谢谢稍稍改了一下搞定了

下一主题 >> << 上一主题

主题：[求助]在狐表中这样的功能如何实现