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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助如何实现下面的首位次序

共有2258人关注过本帖树形打印复制链接主题：求助如何实现下面的首位次序

rongping

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

加好友

发短信

等级：小狐帖子：374 积分：3208 威望：0 精华：0 注册：2018/3/15 16:46:00

求助如何实现下面的首位次序 发帖心情

Post By：2018/7/28 9:36:00 [只看该作者]

假设我有一个表有12个字符列的内容，我的要求是如果我给定一个数字比如3，我要在窗口中对应的12个有序Label中实现按表的第3个列的内容从第一个label中依次填写进去，因为是从3开始的那么前面的1和2就要连接在最后的两个label中，一个是顺排，一个是逆排，总之无论输入1至12的数字都能够按输入的数字按表中的列序号排序，顺排逆排该怎样实现这和功能？求版主和高手解答。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

[此贴子已经被作者于2018/7/28 10:47:44编辑过]

有点蓝

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

加好友

发短信

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

Post By：2018/7/28 9:49:00 [只看该作者]

请上传具体实例说明

rongping

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

加好友

发短信

等级：小狐帖子：374 积分：3208 威望：0 精华：0 注册：2018/3/15 16:46:00

Post By：2018/7/28 10:48:00 [只看该作者]

已经上传实例！

rongping

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

加好友

发短信

等级：小狐帖子：374 积分：3208 威望：0 精华：0 注册：2018/3/15 16:46:00

Post By：2018/7/28 10:49:00 [只看该作者]

以下是引用有点蓝在2018/7/28 9:49:00的发言：
请上传具体实例说明

版主帮我看看

有点蓝

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

加好友

发短信

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

Post By：2018/7/28 11:17:00 [只看该作者]

TextChanged事件

Dim v As Integer = val(e.Sender.Text)
Dim r As Row = Tables("表A").Current
If r IsNot Nothing
Dim idx As Integer = 1
If v >= 1 AndAlso v <= 12 Then
For i As Integer = v-1 To 11
e.Form.Controls("Label" & idx).text = r(i)
idx += 1
Next
For i As Integer = 0 To v-1
e.Form.Controls("Label" & idx).text = r(i)
idx += 1
Next
idx = 13
For i As Integer = v-1 To 0 Step -1
e.Form.Controls("Label" & idx).text = r(i)
idx += 1
Next
For i As Integer = 11 To v-1 Step -1
e.Form.Controls("Label" & idx).text = r(i)
idx += 1
Next

End If
End If

rongping

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

加好友

发短信

等级：小狐帖子：374 积分：3208 威望：0 精华：0 注册：2018/3/15 16:46:00

Post By：2018/7/28 13:07:00 [只看该作者]

以下是引用有点蓝在2018/7/28 11:17:00的发言：
TextChanged事件

Dim v As Integer = val(e.Sender.Text)

Dim r As Row = Tables("表A").Current

If r IsNot Nothing

Dim idx As Integer = 1

If v >= 1 AndAlso v <= 12 Then

For i As Integer = v-1 To 11

e.Form.Controls("Label" & idx).text = r(i)

idx += 1

Next

For i As Integer = 0 To v-1

e.Form.Controls("Label" & idx).text = r(i)

idx += 1

Next

idx = 13

For i As Integer = v-1 To 0 Step -1

e.Form.Controls("Label" & idx).text = r(i)

idx += 1

Next

For i As Integer = 11 To v-1 Step -1

e.Form.Controls("Label" & idx).text = r(i)

idx += 1

Next

End If

End If

非常感谢！只是不知道这句代码什么意思，能否告知？

idx += 1

有点蓝

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

加好友

发短信

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

Post By：2018/7/28 13:27:00 [只看该作者]

原值加1，等同

idx = idx + 1

rongping

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

加好友

发短信

等级：小狐帖子：374 积分：3208 威望：0 精华：0 注册：2018/3/15 16:46:00

Post By：2018/7/28 13:40:00 [只看该作者]

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

主题：求助如何实现下面的首位次序