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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数组输出转化

共有2066人关注过本帖树形打印复制链接主题：数组输出转化

扶风

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

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

数组输出转化 发帖心情

Post By：2018/1/16 18:42:00 [显示全部帖子]

老师，现在我 s elect 数据 from {表}，得到如下数据，但如下的是在同一个单元格内同一组数组

+1.02000E -9,+2.03500E -2

+1.07502E -9,+2.07700E -2

+1.07230E -9,+2.10000E -2

+1.02565E -9,+2.10200E -2

+1.04150E -9,+1.83700E -2

+1.04732E -9,+1.72900E -2

+1.06696E -9,+2.02800E -2

+1.06077E -9,+1.77500E -2

+1.05436E -9,+1.95400E -2

如何将如上数组输出至2个单元格内？以逗号分割，且一行2个填充完另起分行，如上列就输出9行？

扶风

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

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2018/1/17 18:26:00 [显示全部帖子]

老师，提示，索引超出了数组界限。

Dim str As String ="S elect 数据 from {电容出厂} where 投产数量='4' "

Dim arr() As String = str.Replace(vbcr,"").Split(vblf)

For Each a As String In arr

Dim r As Row = Tables("CDF容量导入").AddNew

Dim ar2() As String = a.Split(",")

r("CAP") = ar2(0)

r("DF") = ar2(1)

DataTables("CDF容量导入").save()

且只有一个CAP的单元格有内容，为"S elect 数据 from {电容出厂} where 投产数量='4' "

扶风

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

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2018/1/18 17:59:00 [显示全部帖子]

Dim val2 As String

Dim cmd2 As New SQLCommand

cmd2.CommandText ="(S elect 数据 from {电容出厂} where 投产数量='4' )"

val2 = cmd2.ExecuteScalar()

Dim str As String = ""& val2 &""

Dim arr() As String = str.Replace(vbcr,"").Split(vblf)

For Each a As String In arr

Dim r As Row = Tables("CDF容量导入").AddNew

Dim ar2() As String = a.Split(",")

r("CAP") = ar2(0)

r("DF") = ar2(1)

DataTables("CDF容量导入").save()

老师，数据是导进去了，但为什么还是报错 “索引超出了数组界限。” 导进去有80行，是因为字节长度问题吗？

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

主题：数组输出转化