老师：您好！ 我要弄一个大屏幕显示，提醒各项目进度。我想实现：一次性输入多个项目号，窗口中有多个“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
Next
加好友 
发短信
Post By：2022/12/22 10:33:00 [只看该作者]
