主题：窗口中动态生成的表自动引用的数据同步更新

If Forms("主窗口").opened And Forms("主窗口").ExistControl("Table棋赛名称管理") Then

    If e.DataTable.Name = "Table棋赛名称管理" Then

        e.DataRow.Save

        Select Case e.DataCol.Name

            Case "棋赛名称", "棋赛副名"

                Dim Filter As String

                If e.DataCol.Name = "棋赛名称" Then

                    Filter = "[棋赛名称] = '" & e.OldValue & "' And [棋赛副名] = '" & e.DataRow("棋赛副名") & "'"

                Else

                    Filter = "[棋赛名称] = '" & e.DataRow("棋赛名称") & "' And [棋赛副名] = '" & e.OldValue & "'"

                End If 

                Dim drs As List(Of DataRow) = DataTables("基本信息").SQLSelect(Filter)

                If drs IsNot Nothing Then

                    For Each dr As DataRow In drs

                        dr(e.DataCol.Name) = e.NewValue

                        dr.Save()

                    Next

                End If

                With DataTables("基本信息")

                    .LoadPage = 0 '加载第一页

                    .LoadTop = 20 '每页5行

                    .loadover = "_Identify"

                    .LoadReverse = True

                    .Load()

                End With

                With DataTables("主窗口_Table2")

                    .LoadPage = 0 '加载第一页

                    .LoadTop = 20 '每页5行

                    .loadover = "_Identify"

                    .LoadReverse = True

                    .Load()

                    Forms("主窗口").Controls("TextBox3").Value = 1 & "/" & .TotalPages

                End With

        End Select

    End If

End If