- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口按钮代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6779)
-- 发布时间：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
-- 发布时间：2010/4/24 22:35:00
--
用 for .....next
-- 发布时间：2010/4/25 10:36:00
--
就是for...next老是用不来。
-- 发布时间：2010/4/25 11:02:00
--
以下是引用ybmjy在2010-4-25 10:36:00的发言：
就是for...next老是用不来。
就是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编辑过]
-- 发布时间：2010/4/25 11:11:00
--
真是高手