以下是引用有点蓝在2018/6/23 10:14:00的发言:
For Each f As WinForm.Form In Forms
Output.Show(f.TableName)
Next
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.DataTable.DataRows.Clear
For Each f As WinForm.Form In Forms
Dim r As Row = tb.AddNew
r("第一列") = f.Name
r("第二列") = f.TableName
Next