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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问一段代码

共有2773人关注过本帖树形打印复制链接主题：问一段代码

huangxueyao

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

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

问一段代码

Post By：2018/9/30 16:19:00 [只看该作者]

查询出某个表的数据后，

方法GetComboListString怎样按照0-150,151-300,301-450这样每150条来获取某个字段的拼接？

比如查到了178条记录的话

st1 = 0-150的拼接

st2 = 151-177的拼接

我有思路但觉得比较低效，想学习下比较高效的写法，谢谢。

有点蓝

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

加好友

发短信

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

Post By：2018/9/30 16:57:00 [只看该作者]

写了不知道是否高效，自己测试

Dim lst As List(of String) = DataTables("订单").GetValues("产品")

Dim idx As Integer = 0

Dim idx2 As Integer = 149

Dim cnt As Integer = lst.Count

Dim all As Integer = 150

Output.Show(cnt)

Do While True

If cnt > idx2 Then

Dim ar(all-1) As String

lst.CopyTo(idx,ar,0,all)

Output.Show(String.Join("|",ar))

idx += all

idx2 += all

ElseIf cnt > idx

all = cnt - idx

Dim ar(all-1) As String

lst.CopyTo(idx,ar,0,all)

Output.Show(String.Join("|",ar))

Exit Do

Else

Exit Do

End If

Loop

huangxueyao

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

加好友

发短信

等级：一尾狐帖子：443 积分：3530 威望：0 精华：0 注册：2013/2/9 12:45:00

Post By：2018/10/1 0:04:00 [只看该作者]

谢谢

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

主题：问一段代码