- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助如何实现下面的首位次序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122566)
-- 发布时间：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编辑过]
-- 发布时间：2018/7/28 9:49:00
--
请上传具体实例说明
-- 发布时间：2018/7/28 10:48:00
--
已经上传实例！
-- 发布时间：2018/7/28 10:49:00
--
以下是引用有点蓝在2018/7/28 9:49: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
-- 发布时间：2018/7/28 13:07:00
--
以下是引用有点蓝在2018/7/28 11:17:00的发言：
TextChanged事件
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
-- 发布时间：2018/7/28 13:27:00
--
原值加1，等同
idx = idx + 1
-- 发布时间：2018/7/28 13:40:00
--
ok