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

-- 窗口多界面显示
老师：您好！

我要弄一个大屏幕显示，提醒各项目进度。我想实现：一次性输入多个项目号，窗口中有多个“table控件”，按照输入的项目个数循环同时显示同一个数据表的不同项目号的内容。

如下图片。可是我的代码，实现不了这个想法。请指教！谢谢！

此主题相关图片如下：670e53aab021b8ca131e8ce681ba914.jpg

DataTables("项目进度计算表").LoadFilter = ""

DataTables("项目进度计算表").Load

Dim b1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim value As String = b1.value

Dim Names() As String = Value.Split(chr(13))

Dim v As String

For Each name As String In Names

Dim n As Integer = 0

name = name.replace(chr(10), "")

n = n + 1

v = Str(n)

Dim xx As String = "Table" & Trim(v)

Tables("项目工序进度提示屏_" & xx & "").DataTable.LoadFilter = "[项目号] = \'" & name & "\'"

Tables("项目工序进度提示屏_" & xx & "").DataTable.Load