动态数组 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态数组

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

共有3304人关注过本帖树形打印复制链接主题：动态数组

帅哥哟，离线，有人找我吗？

石四

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

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

动态数组

发帖心情

Post By：2020/10/6 15:17:00 [只看该作者]

图片点击可在新窗口打开查看

此主题相关图片如下：57.png

图片点击可在新窗口打开查看

i = 1 时，结果正确。

图片点击可在新窗口打开查看

此主题相关图片如下：12.png

图片点击可在新窗口打开查看

i = 2 时，结果不正确。

查不出哪的问题！

回到顶部

帅哥哟，离线，有人找我吗？

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

发帖心情

Post By：2020/10/6 15:24:00 [只看该作者]

麻烦代码贴出来，不仅要截图。另外正确结果应该是怎么样的？

[此贴子已经被作者于2020/10/6 15:24:00编辑过]

回到顶部

帅哥哟，离线，有人找我吗？

石四

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

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

发帖心情

Post By：2020/10/6 15:29:00 [只看该作者]

Dim i As Integer = 2

Dim n As Integer = 3 + i * 4

Dim Multi(n) As String

Multi(0) = "s2020060001"

Multi(1) = "55000"

Multi(2) = "0XR52544"

Multi(3) = "1001-101"

For a As Integer = 1 To i

Multi(3+(1*a)) = "RO"

Multi(3+(2*a)) = "h001"

Multi(3+(3*a)) = 50.0

Multi(3+(4*a)) = 20201006

Next

Output.Show(Multi(0))

Output.Show(Multi(1))

Output.Show(Multi(2))

Output.Show(Multi(3))

Output.Show(Multi(4))

Output.Show(Multi(5))

Output.Show(Multi(6))

Output.Show(Multi(7))

回到顶部

帅哥哟，离线，有人找我吗？

石四

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

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

发帖心情

Post By：2020/10/6 15:30:00 [只看该作者]

根据表的行数动态生成数组，再拼接成字符串，生成二维码。

回到顶部

帅哥哟，离线，有人找我吗？

石四

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

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

发帖心情

Post By：2020/10/6 15:34:00 [只看该作者]

Dim i As Integer = 2

Dim n As Integer = 3 + i * 4

Dim Multi(n) As String

Multi(0) = "s2020060001"

Multi(1) = "55000"

Multi(2) = "0XR52544"

Multi(3) = "1001-101"

For a As Integer = 1 To i

Multi(3+(1*a)) = "RO"

Multi(3+(2*a)) = "h001"

Multi(3+(3*a)) = 50.0

Multi(3+(4*a)) = 20201006

Next

Dim v As String

For j As Integer = 0 To n

v = v & Multi(j) & ","

Next

output.show(v)

测试结果v = "s2020060001,55000,0XR52544,1001-101,RO,RO,50,h001,,50,,20201006,"

不正确

回到顶部

帅哥哟，离线，有人找我吗？

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

发帖心情

Post By：2020/10/6 16:34:00 [只看该作者]

Dim i As Integer = 2

Dim n As Integer = 3 + i * 4

For a As Integer = 1 To i

Output.Show(0+(4*a))

Output.Show(1+(4*a))

Output.Show(2+(4*a))

Output.Show(3+(4*a))

Next

Output.Show("---------")

For a As Integer = 1 To i

Output.Show(3+(1*a))

Output.Show(3+(2*a))

Output.Show(3+(3*a))

Output.Show(3+(4*a))

Next

回到顶部

帅哥哟，离线，有人找我吗？

石四

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

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

发帖心情

Post By：2020/10/7 10:36:00 [只看该作者]

Dim i As Integer = 2

Dim n As Integer = 3 + i * 4

Dim Multi(n) As String

Multi(0) = "s2020060001"

Multi(1) = "55000"

Multi(2) = "0XR52544"

Multi(3) = "1001-101"

For a As Integer = 1 To i

Multi(0+(4*a)) = "RO"

Multi(1+(4*a)) = "h001"

Multi(2+(4*a)) = 50.0

Multi(3+(4*a)) = 20201006

Next

Dim v As String

For j As Integer = 0 To n

v = v & Multi(j) & ","

Next

output.show(v)

------------------

OK,谢谢蓝版！

回到顶部

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

RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询