以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何判断窗口表是否存在(已解决) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107175) |
-- 作者:yyzlxc -- 发布时间:2017/9/22 15:34:00 -- [求助]如何判断窗口表是否存在(已解决) 代码生成的“车间看板_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”的出错提示。 设想当Tables("车间看板_Table2")不存在时,不运行相关代码。如何判断不存在车间看板_Table2,请工位老师指教,谢谢!! [此贴子已经被作者于2017/9/22 16:54:09编辑过]
|
-- 作者:yyzlxc -- 发布时间:2017/9/22 15:37:00 -- 补充说明:这段代码是在计划管理中运行的,为了刷新数据。 |
-- 作者:有点甜 -- 发布时间:2017/9/22 16:04:00 -- If Forms("车间看板").Opened Then
End If
--------------------
If Tables.Contains("车间看板_Table2") Then
End If |
-- 作者:yyzlxc -- 发布时间:2017/9/22 16:54:00 -- 谢谢有点甜老师的指教,问题解决,再次感谢!! |