以文本方式查看主题

-  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”的出错提示。


图片点击可在新窗口打开查看此主题相关图片如下:捕获3.png
图片点击可在新窗口打开查看


设想当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
--  
谢谢有点甜老师的指教,问题解决,再次感谢!!