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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口按钮代码

共有11979人关注过本帖树形打印复制链接主题：[求助]窗口按钮代码

ybmjy

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

加好友

发短信

等级：一尾狐帖子：428 积分：4705 威望：0 精华：3 注册：2009/7/4 13:40:00

[求助]窗口按钮代码 发帖心情

Post By：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