MessageBox.Show(Forms("主窗口").opened)
MessageBox.Show(e.DataTable.Name)
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
Dim das As List(Of DataRow) = DataTables("比赛积分").SQLSelect(Filter)
If das IsNot Nothing Then
For Each da As DataRow In das
da(e.DataCol.Name) = e.NewValue
da.Save()
Next
End If
With DataTables("比赛积分")
.LoadPage = 0 '加载第一页
.LoadTop = 20 '每页5行
.loadover = "_Identify"
.LoadReverse = True
.Load()
End With
With DataTables("主窗口_Table1")
.LoadPage = 0 '加载第一页
.LoadTop = 20 '每页5行
.loadover = "_Identify"
.LoadReverse = True
.Load()
Forms("主窗口").Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
End Select
End If
End If
弹窗了，改为弹窗的窗口名称依然没有发生改变。
加好友 
发短信
Post By：2023/3/24 16:18:00 [只看该作者]
