| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 新版狐表发布时闪退 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170865) |
| -- 作者：不再回首 -- 发布时间：2021/8/10 8:35:00 -- 新版狐表发布时闪退 请问老师，为什么我今天更新了5月29号的版本，发布系统时会闪退呢，一点发布就退出系统了，旧版本不会 |
| -- 作者：有点蓝 -- 发布时间：2021/8/10 8:39:00 -- 1、关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目测试。 2、打开全局代码，点击确定，看看有没有出错的代码
|
| -- 作者：不再回首 -- 发布时间：2021/8/10 10:10:00 -- 按老师的方法处理了，是可以发布了，但多发布几次测试，又会出现闪退的情况，只能又删除BIN，重新来过，同时发现现在发布的时间比以前要长很多，不知为什么 |
| -- 作者：有点蓝 -- 发布时间：2021/8/10 10:15:00 -- 把foxtable设置为“使用管理员是否运行” 发布的时间比以前要长：应该是附件、图片越来越多了，复制文件生成压缩的升级包需要的时间就长。另外可以关闭杀毒软件
|
| -- 作者：不再回首 -- 发布时间：2021/8/10 10:28:00 -- 不行啊老师，还是总是闪退 |
| -- 作者：不再回首 -- 发布时间：2021/8/10 10:37:00 -- 为什么显示_name有问题呢，平时都没提示的啊 |
| -- 作者：有点蓝 -- 发布时间：2021/8/10 10:37:00 -- 说明全局代码有问题呀，发上来看看 |
| -- 作者：不再回首 -- 发布时间：2021/8/10 10:42:00 -- \'系统变量设置 Public _Username As String \'保存当前登录用户的工号! Public _gc As String \'保存当前登录用户的工厂 Public _UserGroup As String \'保存该用户的分组即岗位编号 Public _name As String \'用户名变量 Public _bh As String \'工号 Public _nam As String Public _gw As String \'记录岗位 Public _dlmmkg As Boolean \'判断录登陆密码是否为空 Public _bmcj As String \'部门车间名称变量 Public _jm As String \'级码,用于查找下属 Public _ipid As String \'用于记录IP地址 Public _scbj As String \'用于记录班级 Public _qxmm As String \'用于记录权限密码 Public _dlmm As String \'用于记录登陆密码 Public rdt As DataTable Public _bbh As Integer \'用于记录版本号 Public _PrimaryKey As String \'用于记录当前表的主键列名称 Public nStyle As C1.Win.C1FlexGrid.CellStyle Public jc As Double Public DrawGannt As Boolean = True \'用于甘特图 Public _zmmc As String \'下面代码用于身份证读卡系统使用 Public Declare Function CVR_InitComm Lib "termb.dll" Alias "CVR_InitComm" (ByVal Port As Integer) As Integer \'连接设备 Public Declare Function CVR_Authenticate Lib "termb.dll" Alias "CVR_Authenticate" () As Integer \'验证身份证 Public Declare Function CVR_Read_Content Lib "termb.dll" Alias "CVR_Read_Content" (ByVal Active As Integer) As Integer \'读取身份证信息 Public Declare Function CVR_CloseComm Lib "termb.dll" Alias "CVR_CloseComm" () As Integer \'下面代码为在窗口中导入EXCEL文件用 Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Dim axWebBrowser As Object = sender.ActiveXInstance Dim refmissing As [Object] = System.Reflection.Missing.Value Dim args As Object() = New Object(3) {} args(0) = 24 args(1) = 2 args(2) = refmissing args(3) = refmissing axWebBrowser.[Gettype]().InvokeMember("ExecWB", 256, Nothing, axWebBrowser, args) End Sub \'--------------------------------隐藏窗口--------------------------------------------- Public Dim nfi As new System.Windows.Forms.NotifyIcon \'定义通知区域小图标 Public Dim cms As new System.Windows.Forms.ContextMenuStrip \'定义右键菜单 \'图标双击事件 Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Forms("信息接收窗口").visible=True \'设置主窗体显示 这个代码帮助中有的 End Sub
|
| -- 作者：有点蓝 -- 发布时间：2021/8/10 10:48:00 -- 看不出什么。把项目文件发给客服测试一下 |
| -- 作者：不再回首 -- 发布时间：2021/8/10 10:54:00 -- 好的，谢谢老师 |