代码生成的“车间看板_Table2”窗口表
LockBaseMainForm
Tables("车间看板_Table2").StopRedraw
Dim b1 As New GroupTableBuilder("表1",DataTables("签到明细"))
b1.Groups.AddDef("姓名")
b1.Groups.AddDef("事由")
b1.Filter = "日期 = '" & rq & "' and 单位 = '" & dw & "' and 时段 = '" & _CGSD & "' and 状态 <> ''"
Tables("车间看板_Table2").DataSource = b1.BuildDataSource()
Tables("车间看板_Table2").AutoSizeCols()
With Tables("车间看板_Table2")'光标定位
.Select(.Rows.Count - 1,.Cols.Count -1)
End With
Tables("车间看板_Table2").ResumeRedraw
UnLockBaseMainForm
问题：当关闭窗口后再打开窗口时，有时会弹出没有“车间看板_Table2”的出错提示。
此主题相关图片如下：捕获3.png
设想当Tables("车间看板_Table2")不存在时，不运行相关代码。如何判断不存在车间看板_Table2，请工位老师指教，谢谢！！
[此贴子已经被作者于2017/9/22 16:54:09编辑过]
加好友 
发短信
Post By：2017/9/22 15:34:00 [显示全部帖子]
