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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:列表项目.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

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