Foxtable(狐表)用户栏目专家坐堂 → 请问,syscmd.project.exit(false)没办法跳离系统??


  共有3631人关注过本帖树形打印复制链接

主题:请问,syscmd.project.exit(false)没办法跳离系统??

帅哥哟,离线,有人找我吗?
tennis
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
请问,syscmd.project.exit(false)没办法跳离系统??  发帖心情 Post By:2014/4/30 10:45:00 [显示全部帖子]

BeforeConnectOuterDataSource:


Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Administrator\Documents\Foxtable项目\管理项目5\Catch\用户.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
    Syscmd.Project.Exit(False)
End If

Syscmd.Project.Exit(False) 为何没办法离开 ??

 回到顶部
帅哥哟,离线,有人找我吗?
tennis
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2014/4/30 15:46:00 [显示全部帖子]

3Q ALL:


請帮忙看这一段:放于BeforeOpenproject 会出错误,我原先放于BeforeConnectOuterDataSource

Dim ipfile As String = projectpath & "catch\ip.txt"

If filesys.fileExists(ipfile) =True Then
    Dim dbfile As String = filesys.readalltext(ipfile)
    If filesys.fileExists(dbfile)=True Then
        If e.name = "database" Then
            e.c & dbfile &  ";Persist Security Info=False"
        End If
    Else
        If e.name = "database" Then
            Dim dlg As new openfiledialog
            dlg.filter = "access文件|*.mdb"
            If dlg.showdialog = dialogresult.ok Then
                e.c & dlg.filename &  ";Persist Security Info=False"
                filesys.writealltext(ipfile,dlg.filename,False)
            End If
        End If
    End If
Else
    If e.name = "database" Then
        Dim dlg As new openfiledialog
        dlg.filter = "access文件|*.mdb"
        If dlg.showdialog = dialogresult.ok Then
            e.c & dlg.filename &  ";Persist Security Info=False"
            filesys.writealltext(ipfile,dlg.filename,False)
        End If
    End If
End If


 回到顶部