If Forms("主窗口").Controls("TabControl1").SelectedPage.Name = Str Then
if DataTables("比赛积分").SQLfind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' and 积分 is null") is nothing then
Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
tab.TabPages.Delete(tab.SelectedIndex)
End If
Else