哦,写成这样行了,谢谢:If Forms("主窗口").opened Then
Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.text
Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")
Dim di2 As String = m.text
Dim bsrq As WinForm.DateTimePicker = Forms("主窗口").Controls("rq")
Dim di3 As Date = bsrq.Value
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.text
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.text
Dim tbl As WinForm.Table = Forms("主窗口").Controls("Table'" & Str & "'")
'If Tables.Contains("主窗口_Table'" & Str & "'") Then '这样判断也可以
If Forms("主窗口").ExistControl("Table'" & Str & "'") Then
For Each nr As Row In tbl.Table.Rows
Else
Return
End If
Else
Return
End If