动态表的表名问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这2句代码绝对不可能出错。请学会调试，定位到错误的那一句的代码

此主题相关图片如下：qq图片20211116100028.png

在没排序并且生成table情况下按保存按钮，照理我已作判断，用代码取消，不应再有提示弹出，有提示弹出说明判断无效，应怎写？

If Forms.contains("主窗口") Then

Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")

Dim di1 As String = qsmc.Value

Dim m As WinForm.TextBox = Forms("主窗口").Controls("第几轮")

Dim di2 As String = m.Value

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.Value

Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")

Dim Str As String = fz.Value

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

[此贴子已经被作者于2021/11/16 10:04:26编辑过]

Str变量没有值，fenzhu控件没有选择值

msgbox(Str)

如果没有绑定列的，控件取值尽量建议使用text，不要使用value

Dim Str As String = fz.text

此主题相关图片如下：qq图片20211116101904.png

改过来了，我是在有意测试的，在关闭菜单设计窗口后按保存按钮，弹出上面提示，都说明上面的代码判断不起作用。

既然是有意的，那么就要自己加容错的判断代码，判断控件有值再继续后面的代码。

34楼的提示很明显了，窗口没有打开，是无法使用里面的控件的，请自行判断窗口是否打开再用

哦，写成这样行了，谢谢：

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

主题：动态表的表名问题