注销代码里，把系统关闭前生成的临时表都删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 注销代码里，把系统关闭前生成的临时表都删除

共有2172人关注过本帖树形打印复制链接主题：注销代码里，把系统关闭前生成的临时表都删除

susu312

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/9/14 14:15:00 [只看该作者]

以下是引用有点甜在2018/9/14 11:41:00的发言：

那你注销的时候，不要open窗口，全部窗口close即可。

basemainform.visible = False
'Forms("用户登录").Open()
'Dim ls As new List(Of String)
'For Each dt As DataTable In DataTables
    'If dt.Type = 5 Then
        'ls.add(dt.name)
    'End If
'Next
'For Each s As String In ls
    'DataTables.Unload(s)
'Next

Syscmd.Project.Open(projectfile)

'
'Forms("单位管理").Close
'Forms("单位管理").Open
'Forms("部门管理").Close
'Forms("部门管理").Open
'Forms("用户管理主窗口").Close
'Forms("用户管理主窗口").Open
''Forms("人员管理窗口").Close
''Forms("人员管理窗口").Open
'Forms("历史库管理窗口").Close
'Forms("历史库管理窗口").Open
'Forms("首页").Close
'Forms("首页").Open
'RibbonTabs.SelectedTab = RibbonTabs("首页")

就保留了那两句代码？

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/14 14:18:00 [只看该作者]

Forms("用户登录").Open()
lockbasemainform
Dim ls As new List(Of String)
For Each dt As DataTable In DataTables
    If dt.Type = 5 Then
        ls.add(dt.name)
    End If
Next
For Each s As String In ls
    DataTables.Unload(s)
Next

Forms("单位管理").Close
Forms("部门管理").Close
Forms("用户管理主窗口").Close
Forms("历史库管理窗口").Close
Forms("首页").Open
RibbonTabs.SelectedTab = RibbonTabs("首页")
unlockbasemainform