标题：[求助]窗口按钮代码

1楼

ybmjy 发表于：2010/4/24 19:41:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:列表项目.table

按钮中这一段还能精简吗？请高手指点。
Dim Ns As String
for i as Integer = 0 to tables("表B").rows.Count-1
Ns = Ns & "|" & tables("表B").rows(i)("第一列")
next
Ns=Ns.trim("|")
Dim Names() As String
Names = Ns.split("|")
e.Form.controls("Label1").text = Names(0)
e.Form.controls("Label2").text = Names(1)
e.Form.controls("Label3").text = Names(2)
e.Form.controls("Label4").text = Names(3)
e.Form.controls("Label5").text = Names(4)
e.Form.controls("Label6").text = Names(5)
e.Form.controls("Label7").text = Names(6)
e.Form.controls("Label8").text = Names(7)
e.Form.controls("Label9").text = Names(8)
e.Form.controls("Label10").text = Names(9)
e.Form.controls("Label11").text = Names(10)
e.Form.controls("Label12").text = Names(11)
e.Form.controls("Label13").text = Names(12)
e.Form.controls("Label14").text = Names(13)
e.Form.controls("Panel1").Visible =true

2楼

mr725 发表于：2010/4/24 22:35:00

用 for .....next

3楼

ybmjy 发表于：2010/4/25 10:36:00

就是for...next老是用不来。

4楼

yangming 发表于：2010/4/25 11:02:00

以下是引用ybmjy在2010-4-25 10:36:00的发言：
就是for...next老是用不来。

For i as Integer = 0 to 13
e.Form.controls("Label"& i+1).text = Names(i)
Next

[此贴子已经被作者于2010-4-25 11:02:07编辑过]

5楼

ybmjy 发表于：2010/4/25 11:11:00

真是高手

共5 条记录, 每页显示 10 条, 页签: [1]