Foxtable(狐表)用户栏目专家坐堂 → 未知 编译错误


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

主题:未知 编译错误

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


加好友 发短信
等级:六尾狐 帖子:1446 积分:10890 威望:0 精华:0 注册:2016/4/28 9:58:00
未知 编译错误  发帖心情 Post By:2019/9/13 22:27:00 [只看该作者]

原来代码错误有提示什么问,错在哪里,现在不管哪个代码语句有问题就提示未知编译错误,并且即便改好代码问题后再执行窗口也没有反应了,要重启项目才能正常执行,请老师指点



Dim cb5 As String = e.Form.Controls("combobox5").text
If cb5 >""
    Dim dlg As New OpenFileDialog
    dlg.Filter = "Excel|*.xls;*.xlsx;*.csv"
    If dlg.ShowDialog = DialogResult.OK Then
        Dim Book As New XLS.Book(dlg.filename)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim nb As Integer
        Dim xsxx As Integer
        Dim nj As Integer
        Dim fdjs As Integer
        Dim dr As DataRow
        For i As Integer = 0 To sheet.Cols.count -1
            If sheet(0,i).value="类别"
                nb = i
            End If
            If sheet(0,i).value="学生姓名"
                xsxx  = i
            End If
            If sheet(0,i).value="年级"
                nj  = i
            End If
            If sheet(0,i).value="作品名称"
                zpmc  = i
            End If
            If sheet(0,i).value="辅导教师"
                fdjs = i
            End If
        Next
        For n As Integer = 1 To Sheet.Rows.Count -1
            If Sheet(n,0).Value=""
                Continue For
            Else
                dr= DataTables("科技文化节作品").find("类别='" & sheet(n,nb).value & "'")
                If dr Is Nothing
                    dr = DataTables("科技文化节作品").addnew()
                    For m As Integer = 0 To sheet.Cols.count -1
                        If trim(sheet(0,m).text).length=0
                            Continue For
                        Else
                            dr(sheet(0,m).value) =  Sheet(n,m).Value.replace(" ","").replace(chr(9),"")
                        End If
                    Next
                    dr("届别")=cb5
                    dr("县区") = "东兴区"
                    dr("学校") = _usergroup
                    dr("所属中心校")=sszxx
                    dr.save()
                End If
            End If
        Next
    End If
Else
    messagebox.show("请选择好届别再批量导入,注意不要重复导入")
End If


比如上面代码始终提示未知编译错误,也没提示什么哪句代码错误,并且可果出现一次这个错误,整个项目的其他窗口也不运行了,要重启项目才能够用了,请老师帮看一下
[此贴子已经被作者于2019/9/15 11:11:46编辑过]

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


加好友 发短信
等级:超级版主 帖子:33774 积分:171988 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 14:07:00 [只看该作者]

把项目文件.foxdb单独(单独,不包含其它文件和目录)复制到其它文件夹,然后打开测试看能不能有明确的提示。

把这个目录删除:打开【C:\用户(有些系统为 Users)\系统用户名\AppData\Local\Foxtable(狐表) 】这个目录,把Foxtable(狐表)这个目录删除
注意:APPDTATA是隐藏文件,要设置显示隐藏文件才能看到

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


加好友 发短信
等级:六尾狐 帖子:1446 积分:10890 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/9/15 17:39:00 [只看该作者]

老师,按上面两个做了,效果还是一样,最近狐表总出一个怪问题,我太难了

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


加好友 发短信
等级:超级版主 帖子:33774 积分:171988 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 21:18:00 [只看该作者]

新建一个项目,单独把这段代码放到新项目里测试

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


加好友 发短信
等级:六尾狐 帖子:1446 积分:10890 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2019/9/15 21:51:00 [只看该作者]

随便建一个项目测试有提示,就这个项目始终提示未知编译错误,这怎么办?

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


加好友 发短信
等级:超级版主 帖子:33774 积分:171988 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 22:33:00 [只看该作者]

明天发给客服测试一下。

卸载Foxtable,换个目录重新安装一下

 回到顶部